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

my $t1 = time();
print "$t1 \n";


sleep 5;
my $t2 = time(); ;
print ($t2) ;

my $diff = $t2 - $t1;
my $mDiff = int($diff / 60);
my $sDiff = sprintf("%02d", $diff - 60 * $mDiff);
print "diff = $diff -> $mDiff\:$sDiff\n";