#!/usr/bin/perl -sw
#
# Created by Steve Voisey (srv) 06 Jun 2011.
# email: [steve.voisey@ericsson.com]
#
# file:    createBigFile.pl
# version: V1.000
#
unless (defined($file))  { die "file not defined\n"; }
unless (defined($lines)) { die "lines not defined\n"; }

$text = "This is a test line to create a BIG! file\n";

unless (open (FILE, ">$file"))  { die "cannot open file [$file] $!"; }

for ($count = 0; $count < $lines; $count++) {
 	print FILE "[$count] $text";
}

close FILE;
exit;