Select Code to Download

C:\test>1198509.pl >nul
Took 0.064547 seconds

C:\test>1198509.pl
0
...
3 3 3 3 3 3 3 2
3 3 3 3 3 3 3 3
Took 6.103125 seconds

#! perl -slw
use strict;
...
}
printf STDERR "Took %f seconds\n", time() - $start;