#!/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";