#! perl -slw
use strict;
use Math::Random::MT qw[ rand ];

open O, '>:raw', 'data/650MB.bin';
print O unpack 'B44', pack'NN', rand( 2**32 ), rand( 2**32 ) for 1 .. 15e6;
close O;

open O, '>:raw', 'data/600.bin';
print O unpack 'B7', pack 'C', rand(256)  for 1 .. 600;
close O;