#!/usr/bin/perl -w use DateTime; my $dt1 = DateTime->new ( year => 2011, month => 10, day => 1, hour => 18, minute => 45, second => 0, time_zone => 'local', ); my $dt2 = DateTime->now; my $dur = DateTime::Duration->new; $dur = $dt2 - $dt1; my $days = $dt1->delta_days($dt2)->delta_days; print "Content-type: text/html\n\n"; print "\n"; print "CGI Test\n"; print "\n"; print "\n"; printf "Year = %s" , $dur->years; print '
'; printf "Months = %s", $dur->months; print '
'; printf "Weeks = %s", $dur->weeks; print '
'; printf "Days = %s", $dur->days; print '
'; printf "Hours = %s", $dur->hours; print '
'; printf "Total Days= %s\n", $days; print "\n"; print "\n";