Select Code to Download

#! perl -slw
use strict;
use Math::Random::MT qw[ rand ];
...
open O, '>:raw', 'data/600.bin';
print O unpack 'B7', pack 'C', rand(256)  for 1 .. 600;
close O;

#! perl -slw
use strict;
...
    close O;
}
close $smallFH;