Perl Cookbook
print delta_time(40323);
sub delta_time {
my $difference = shift;
my ($hours, $minutes, $seconds);
$seconds = $difference % 60;
$difference = ($difference - $seconds) / 60;
$minutes = $difference % 60;
$difference = ($difference - $minutes) / 60;
$hours = $difference % (24*60);
return "$hours hours, $minutes munutes, $seconds seconds";
}