use Date::Manip; my @sec = map UnixDate($_, "%s"), "Aug 26 23:10:59", "Aug 27 10:59:02"; printf "diff secs: %d\n", $sec[1] - $sec[0]; # = 42483