print (STDOUT Lingua::Romana::Perligata::__enquote__ ( 'Enter', 'radius'), ":", " "); my $radius = IO::Handle::getline (*STDIN ); my $multiplier = (2 * 3.141); my $circumference = ($multiplier * $radius); print (STDOUT 'Circumference'); print (STDOUT ":", " ", $circumference, "\n")