#!/usr/bin/perl -w
use strict;
use warnings;

my $t1 = time(); print scalar localtime,"\n";
sleep 5;
my $t2 = time(); print scalar localtime,"\n"; 
my ($h,$m,$s) = (localtime($t2-$t1))[2,1,0];
print "Elapsed: $h:$m:$s\n";

__DATA__
Sat Apr  8 15:40:17 2006
Sat Apr  8 15:40:22 2006
Elapsed: 1:0:5