open my $file, '<', $filename or die $!;
seek $file, $offset, 0 or die "Report error - $!";

##</code><code>##

seek "$file" blah blah