Select Code to Download

#!/usr/bin/perl -w
use Lingua::Romana::Perligata;
...
        biguttam tum lacunam tum 
        circumferenceum tum novumversum
        egresso scribe.

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