use Time::Piece; 
$addon_year = localtime->year; 
$current_date = "12/21"; 
$stored_date = "10/21"; 
# Calculate the time difference 
                # Add on a year to timestamp 
                $fullcurrent_date = join "/", $addon_year,$current_date; 
                print "Addon year = $addon_year\n"; 
                print "Full current date: $fullcurrent_date\n"; 
 
                $format_current = Time::Piece->strptime($fullcurrent_date, "%Y/%m/%d"); 
                print "Format current: $format_current\n"; 
 
                # Find year for stored time, as it could be different and muck my calculations 
                &year_calc; 
                $fullstored_date = join "/", $mod_year,$stored_date; 
                print "Full stored date: $fullstored_date\n"; 
 
                $format_stored = Time::Piece->strptime($fullstored_date, "%Y/%m/%d"); 
                print "Format stored: $format_stored\n"; 
                $newdays = $format_current - $format_stored; 
                print "Total days: $newdays\n"; 
                print int($newdays->days)," days since report date.\n"; 
                print "\n"; 
 
# And here is my year_calc subroutine 
sub year_calc { 
$format_current = Time::Piece->strptime("$current_date", "%m/%d"); 
$format_stored = Time::Piece->strptime("$stored_date", "%m/%d"); 
$totaldays = $format_current - $format_stored; 
 
if (abs($totaldays) != $totaldays){ 
print "The number was negative, assume the year is last year.\n"; 
$mod_year = $addon_year - 1; 
print "Year is: $mod_year\n"; 
} 
else { 
print "The number was positive, assume it was this year.\n"; 
$mod_year = $addon_year; 
} 
chomp($mod_year); 
return $mod_year; 
 
}

sub year_calc {  
$format_current = Time::Piece->strptime("$current_date", "%m/%d");  
$format_stored = Time::Piece->strptime("$stored_date", "%m/%d"); 
print "<$format_current>  <$format_stored>\n";

<Mon Dec 21 00:00:00 1970> <Wed Oct 21 00:00:00 1970>

#!/usr/bin/perl 
use Time::Piece; 
$current = Time::Piece->strptime("2008/12/10", "%Y/%m/%d"); 
$stored = Time::Piece->strptime("2008/12/3", "%Y/%m/%d"); 
$diff = $current - $stored; 
print int($diff->days), " days since $stored\n";

7 days since Wed Dec  3 00:00:00 2008

#!/usr/bin/perl  
use Time::Piece;  
$current = Time::Piece->strptime("2008/12/10", "%Y/%m/%d");  
$stored = Time::Piece->strptime("2008/12/3", "%Y/%m/%d");  
$diff = $current - $stored;  
print int($diff->days), " days since $stored\n";

#!/usr/bin/perl 
use Time::Piece; 
use Date::Calc qw(Delta_DHMS); 
 
# One is my stored date, and two is the report date 
 
$year1 = localtime->year; 
$month1 = 12; 
$day1 = 3; 
$year2 = 2008; 
$month2 = 12; 
$day2 = 10; 
$hours1 = 11; 
$minutes1 = 33; 
$hours2 = 9; 
$minutes2 = 56; 
my $seconds1; 
my $seconds2; 
($days,$hours,$minutes,$seconds) = Delta_DHMS( $year1, $month1, $day1, $hours1, $minutes1, $seconds1, $year2, $month2, $day2, $hours2, $minutes2, $seconds2); 
print "Days: $days\n"; 
print "Hours: $hours\n"; 
print "Minutes: $minutes\n";

my ($days,$hours,$minutes,$seconds) = Delta_DHMS( $year1, $month1, $day1, $hours1, $minutes1, $seconds1, 
                                                  $year2, $month2, $day2, $hours2, $minutes2, $seconds2 
);