#! perl -slw
use strict;

for( 1 .. 5e6 ) {
    my $n1 = int( rand 100 );
    my $n2 = int( rand 1e6 );

    printf "w\t%d\t%d\t75\t75M\t0\n", $n1, $n2;
    printf "c\t%d\t%d\t75\t75M\t0\n", $n1, $n2 - int( rand 1000 ) + 500;

}
__END__
C:\test>head 1166792.dat
w       70      437286  75      75M     0
c       70      437579  75      75M     0
w       50      852386  75      75M     0
c       50      852473  75      75M     0
w       45      45196   75      75M     0
c       45      45695   75      75M     0
w       83      1739    75      75M     0
c       83      1590    75      75M     0
w       31      838500  75      75M     0
c       31      838902  75      75M     0