# your script goes here

BEGIN { $SIG{__DIE__} = sub { print + time() - $^T, $/, @_ } }
print + time() - $^T, $/

##</code><code>##

END { $a=time-$^T, warn sprintf "Runtime %d min %d sec\n", $a/60, $a%60 }