Select Code to Download

#! perl -slw
use strict;
...
__END__
C:\test>1001701.pl
This time: 0/40000; Accumulate ratio: 0.995570 / 40000

use List::Util qw[ shuffle ];

...
    }
}