open(FILE, $path) || die "$!\n";
seek(FILE, $offset, 0);
while(<FILE>) {
    # do stuff
}
close FILE;