[snip]
BEGIN {$prevtime = time();};
[snip]
sub marktime ($) {
    my $label = shift;

    my $newtime = time();
    my $diff = $newtime - $prevtime;
    print "Mark $label time $newtime diff $diff\n";
    $prevtime = $newtime;
}

marktime ("Executing");