http://www.perlmonks.org?node_id=156778


in reply to calculate time(days)

you could: 
use Date::Manip;
 $d=&DateCalc($start,$end);

 if($d eq "+0:0:0:0:2:0:0")  #2 hours
 {
    print "two hours\n";
 } else {
    print "not two hours\n";
 }

[download]

...or something like that

perl -e 'print reverse qw/o b n a e s/;'

In Section Seekers of Perl Wisdom