open(X, ">/tmp/bla") or die $!;
print X "hallo";
close X;

# Datei /tmp/bla existiert
system("ls -al /tmp/bla");

open(X, "</tmp/bla") or die $!;
unlink "/tmp/bla"; # letzter Link auf der Festplatte ist weg, aber der Filehandle ist noch da

system("ls -al /tmp/bla"); # findet /tmp/bla bereits nicht

# funktioniert
while(<X>) {
    print STDERR $_, "\n";
}
# funktioniert auch
seek X, 0, 0;
while(<X>) {
    print STDERR $_, "\n";
}
close X; # jetzt ist sie wirklich weg