Practice_004

#!/usr/bin/perl

$radius=50;
$area=3.14159*($radius ** 2);
print $area . "\n";