$ cat test.pl 
#!/usr/bin/perl
 
 $pie = 3.14;
 print "What is the radius? ";
 chomp($radius = );
 $circ = 2 * $pie * $radius;
 print "The circumference of a circle of radius $radius is $circ.\n";