Help for this page

Select Code to Download


  1. or download this
    use 5.010;
use Time::HiRes qw(time);
...
waitall;

say time - $t;
  2. or download this
    <code>
use strict;
...
waitall;

say time - $t;
  3. or download this
    #! perl -slw
use strict;
...
c:\test>junk44
2.03600001335144
12500 bits changed