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