open(my $infile, '<', "./file") or die "Cannot open file: $!";
binmode($infile);

open(my $outfile, '>', "./reference1") or die "Cannot create file: $!";
binmode($outfile);

my $file = $infile;

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

system ( 'pause' );

##</code><code>##

my $reference = $buffer;
print $reference;