&starttime;
&stoptime;


sub starttime{
my $start = time;
sleep 5;
}

sub stoptime{
my $end = time;
my $elapsed = $end - $start;

print $elapsed;
}