use Time::Local;
my @now = localtime();
my $epoch_time1 = timelocal(@now);
sleep 10;
@now = localtime();
$epoch_time2 = timelocal(@now);
print $epoch_time2 - $epoch_time1;