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")

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

#!/usr/bin/perl -w
use strict;
...
my $date2 = ymd($year, $month2, $day2);
my $diff = $date2 - $date1;
print "Difference is $diff.\n";

#!/usr/bin/perl -w
use strict;
...
my $date2 = ymd($year, $month2, $day2);
my $diff = $date2 - $date1;
print "Difference is $diff.\n";

#!/usr/bin/perl -w
use strict;
...
my ($year2,$month2,$day2) = Decode_Date_US($date2);
my $Dd = Delta_Days($year1, $month1, $day1, $year2, $month2, $day2);
print "Days between those dates: $Dd\n";

#!/usr/bin/perl -w
use strict;
...
my $y = 2003;
my $difference = int( (timelocal(0,0,0,$d1,$m1,$y) - timelocal(0,0,0,$
+d2,$m2,$y))/24/60/60 +0.5);
print "$difference\n";