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

##</code><code>##

sysseek $file, $buffer, 0;

##</code><code>##

sysseek $file, 0x400, 0;