#filename: stickOutputOnEnd.pl
use warnings;
use strict;

my $time1 = time();
sleep(5);
my $time2 = time();
my $timedifference = $time2-$time1; # doesn't work if you use localtime.
print scalar $timedifference;