#!/usr/bin/perl
# - Creating some sample 4MB files for testing threads.
use strict;
use warnings;

my @files = qw( 
    SyslogR_20110615_134243.txt SyslogR_20110615_162146.txt 
    SyslogR_20110620_090237.txt SyslogR_20110620_090308.txt 
    SyslogR_20110620_092240.txt SyslogR_20110620_092328.txt
);

for my $file (@files) {
	open my $OUT, ">" , $file or die "Cannot write to $file : $!";
	my $line = "123456789 "x 25;
	for (my $i= 0; $i< 4e6/250; $i++ ) {
		print $OUT $i, " ", $line, "\n";
	}
	close $OUT;
}