open my $fh, '<', $file or die $!;
binmode $fh;
my $binrec;
read $fh, $binrec, 15;
my $pos = tell $fh;
print "pos = $pos\n"; ## prints 'pos = 15'
....
seek $fh, $pos, SEEK_SET; ## go back