#!/usr/bin/perl -w
print "I was going to compute a circumference but can't decide on a radius.\n";
print "Please provide one for me : ";
chomp($rad = <STDIN>);
$pi = 3.141592654;
print "The circumference is : " . $rad * 2 * $pi . "\n";