Select Code to Download

#! perl -slw
use strict;
...
print for @data;
__END__
C:\test> 906020-gen -N=10e3 > 906020.10e3

C:\test>906020-robo 906020.10e3
5551 unique items
4450 rejected.
5 seconds.