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