$ARGV[0] or die "ERROR: No file for 114 lines";
$ARGV[1] or die "ERROR: No file for 114 lines";

open my $bigfile,"<",$ARGV[0] or die "ERROR: COuld not open big file $ARGV[0]:$!";
open my $outfile,">",$ARGV[1] or die "Error: Could not open output file $ARGV[0]:$!";

$datestring = localtime();
print $outfile "Processing started...at $datestring\n";
print "Processing started...at $datestring\n";

my $lctr = 0;

while (my $line = <$bigfile>) {
    chomp $line;
	$lctr++;
}
$datestring = localtime();
print $outfile "Processing Ended...at $datestring\n";

print $outfile "Total Lines read in $ARGV[0] = $lctr";

close $bigfile;
close $outfile;