#!/usr/bin/perl -w
use strict;
open (DATA,">data") or die "Unable to open data file $!";
for ( 1 .. 1000 ) {
    my $Length = int(rand 240) + 10;
    my $string = "";
    while (length($string) < $Length) {
        $string .= chr( int(rand 58) + 65 );
    }
    print DATA "$string\n";
}