Help for this page

Select Code to Download


  1. or download this
    # your script goes here

BEGIN { $SIG{__DIE__} = sub { print + time() - $^T, $/, @_ } }
print + time() - $^T, $/
  2. or download this
    END { $a=time-$^T, warn sprintf "Runtime %d min %d sec\n", $a/60, $a%6
+0 }