=cut
use strict;
use warnings;

my $infilename = $ARGV[0];
my $outfilename = $ARGV[1];
my $header = $ARGV[2];
my $readoffset = $ARGV[3];
my $readreccnt = $ARGV[4];
my $inreccnt = 0;
my $outreccnt = 0;
print "StartTime:";
print scalar localtime(time);
open my $INFILE, '<', $infilename;
seek $INFILE, $readoffset, 0;
open my $OUTFILE, '>>', $outfilename;

if ($artheader ne 'NOHDR'){
	$artheader =~ tr/'^'/' '/;
	print $OUTFILE "$header\n";
	$outreccnt++;
}

READLOOP: while (<$INFILE>){
	$inreccnt++;
	if ($inreccnt > $readreccnt){
		last READLOOP;
	}
	s/^HHH\.S.*//s;
	s/^EEE\.S.*//s;
	s/^0000\S{4}\s{2}//;
	print $OUTFILE $_;
	$outreccnt++;
}

close $INFILE;
close $OUTFILE;

print ",EndTime:";
print scalar localtime(time);
print ",\n";
print "InFileName:";
print $infilename;
print ",ReadOffset:";
print $readoffset;
print ",ReadRecordCnt:";
print $readreccnt;
print ",OutFileName:";
print $outfilename;
print ",OutRecordCnt:";
print $outreccnt;
print ",\n";
print "HeaderLen:";
print (length $artheader);
print ",HeaderData:";
print $header;
print ",\n";