my $buffer = '';
sysseek $infile, 0x15, 0;
sysread $infile, $buffer, 0x03;
syswrite $outfile, $buffer;