C:\test>del ch

C:\test>type junk4.pl
#!/usr/bin/perl
use strict;

srand();

my $fil = "ch";
open( OUT, '>>', $fil ) or die $!;
binmode OUT;

for my $i ( 1  .. 10_000 ) {
    my $j = int( rand( 20_000 ) ) + 440_000;
    my $k = substr( pack( 'l>', $j ), 1 );
    print OUT $k;
}

close( OUT );
print "DONE !";

C:\test>junk4
DONE !
C:\test>dir ch
 Volume in drive C has no label.
 Volume Serial Number is 8C78-4B42

 Directory of C:\test

13/10/2011  15:29            30,000 ch
               1 File(s)         30,000 bytes
               0 Dir(s)  119,252,598,784 bytes free