#!/usr/bin/perl -w

use strict;

my $a;
my $i;
open( OUT, ">data.txt" );
for( $i = 0; $i < 1000000; $i++ ) {
    $a = rand( 126 );
    $a = int( $a );
    until( $a > 33 ) {
        $a = rand( 126 );
        $a = int( $a );
    }

    print OUT chr( $a );
    print OUT "\n" if( $i % 80 == 0);
}
close( OUT );