C:\test>type datemanip.pl
#! perl -slw
use strict;
use Date::Manip;

print Delta_Format( 
    DateCalc( 
        ParseDate($ARGV[0]),
        ParseDate($ARGV[1]) 
    )
    , 0, $ARGV[2]||'%dh'
);


C:\test>datemanip " 2/28/2000 11:57:29 PM" " 3/1/2000 1:40:03 pm" %st
135754.000000

C:\test>datemanip " 2/28/2000 11:57:29 PM" " 3/1/2000 1:40:03 pm" %mt
2262.566667

C:\test>datemanip " 2/28/2000 11:57:29 PM" " 3/1/2000 1:40:03 pm" %ht
37.709444

C:\test>datemanip " 2/28/2000 11:57:29 PM" " 3/1/2000 1:40:03 pm" %dt
1.571227

C:\test>datemanip " 2/28/2000 11:57:29 PM" " 3/1/2000 1:40:03 pm" %wt
0.224461