my $start;
my $end;

&starttime;
&stoptime;

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

sub stoptime{
   $end = time;
   print $end - $start."\n";
}