#!/usr/bin/perl -w
use Lingua::Romana::Perligata;
        Enter tum radius inquementum tum 
        biguttam tum lacunam egresso scribe.
        meo radiuso vestibulo perlegementum da.
        meo multipliero multiplicamentum 
        II tum MMMCXLI Mimum da.
        meo circumferenceo 
        multiplicamentum multiplierum 
        tum radiusum da.
        scribe egresso dictum sic 
        Circumference cis.
        biguttam tum lacunam tum 
        circumferenceum tum novumversum
        egresso scribe.

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl -w
use Lingua::Romana::Perligata;
	Enter tum radius inquementum tum 
	biguttam tum lacunam egresso scribe.
	meo radiuso vestibulo perlegementum da.
	meo multipliero multiplicamentum 
	II tum MMMCXLI Mimum da.
	meo circumferenceo 
	multiplicamentum multiplierum 
	tum radiusum da.
	scribe egresso dictum sic 
	Circumference cis.
	biguttam tum lacunam tum 
	circumferenceum tum novumversum
	egresso scribe.

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Date::Simple ('date', 'today', 'ymd');

my %months = (
  "jan" => "1",
  "feb" => "2",
  "mar" => "3",
  "apr" => "4",
  "may" => "5",
  "jun" => "6",
  "jul" => "7",
  "aug" => "8",
  "sep" => "9",
  "oct" => "10",
  "nov" => "11",
  "dec" => "12", 
  );

my $year = today()->year;
print "Enter a month and day:\n";
my ($month1, $day1) = split /\s+/, <STDIN>;
chomp($month1, $day1);
$month1 = lc $month1;
$month1 = substr($month1,0,3);
$month1 = $months{$month1};
print "Enter a month and day:\n";
my ($month2, $day2) = split /\s+/, <STDIN>;
chomp($month2, $day2);
$month2 = lc $month2;
$month2 = substr($month2,0,3);
$month2 = $months{$month2};
my $date1 = ymd($year, $month1, $day1);
my $date2 = ymd($year, $month2, $day2);
my $diff = $date2 - $date1;
print "Difference is $diff.\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Date::Simple ('date', 'today', 'ymd');
my $year = today()->year;
print "Enter the month of the first date:\n";
chomp(my $month1 = <STDIN>);
print "Enter the day of the first date:\n";
chomp(my $day1 = <STDIN>);
print "Enter the month of the second date:\n";
chomp(my $month2 = <STDIN>);
print "Enter the day of th second date:\n";
chomp(my $day2 = <STDIN>);
my $date1 = ymd($year, $month1, $day1);
my $date2 = ymd($year, $month2, $day2);
my $diff = $date2 - $date1;
print "Difference is $diff.\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Date::Calc qw( Decode_Date_US Delta_Days );
print "Enter first date in month day year format: \n";
chomp (my $date1 = <STDIN>);
my ($year1,$month1,$day1) = Decode_Date_US($date1);
print "Enter second date in month day year format: \n";
chomp (my $date2 = <STDIN>);
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";

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Time::Local;
print "Enter the first month:\n";
chomp (my $m1 = <STDIN>);
print "Enter the first day:\n";
chomp (my $d1 = <STDIN>);
print "Enter the second month:\n";
chomp (my $m2 = <STDIN>);
print "Enter the second day:\n";
chomp (my $d2 = <STDIN>);
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";