open my $INFILE, '<', $infilename or die "Cannot open $infilename: $!";
seek $INFILE, $readoffset, 0 or die "Cannot seek: $!";
open my $OUTFILE, '>>', $outfilename or die "Cannot open $outfilename: $!";