#!usr/bin/perl -w

print "To calculate the area of a circle, 
simply enter it's radius below\n";

print "Radius=";

$radius=<stdin>;
chomp $radius;

$area=3.1415926535897932384626*($radius ** 2);
print "The area of your circle is $area";