Shell Programming and Scripting

 
use POSIX qw/strftime/;
use Date::Calc qw(Delta_YMDHMS);
use Time::Local;

$start_date = "01/31/2010";
$end_date =  "02/01/2010";
$start_time= "00:00:00";
$end_time= "00:00:00";

  my ($smon,$sdate,$syear) = split("\/",$start_date);
  my ($emon,$edate,$eyear) = split("\/",$end_date);
my ($diff_year,$diff_mon,$diff_days, $diff_hours,$diff_min,$diff_sec) =Delta_YMDHMS($syear,$smon,$sdate,split(":",$start_time),$eyear,$emon,$edate,split(":",$end_time));

 print " $diff_year,$diff_mon,$diff_days, $diff_hours,$diff_min,$diff_sec";

The delta vector is calculated by simply taking the difference in years, the difference in months and the difference in days.

use Date::Manip;

$start_date = "01/31/2010";
$end_date =  "02/01/2010";

$date1 = ParseDate($start_date);
$date2 = ParseDate($end_date);
$diff = DateCalc($date1, $date2);

print "$diff";

+0:0:0:1:0:0:0

YY:MM:WK:DD:HH:MM:SS