# ex_02-2

# Learning Perl on Win32 Systems, Exercise 2.2



print "What is the radius: ";

chomp($radius = <STDIN>);

$pi = 3.141592654;

$result = 2 * $pi * $radius;

print "radius $radius is circumference $result\n";