my $days = int($when/86400); $when -= ($days*86400); my $hours = int($when/3600); $when -= ($hours*3600); my $minutes = int($when/60); $when -= ($minutes*60); my $seconds = $when;