open(my $fh, '>', 'f00') or die $!;
seek($fh, 100, 0) or die "seek:$!";
print "eof!" if eof($fh);
close($fh);