Ja, das close schlägt fehl.

C:\>perl -e"open $fh,qq(|notepd) or die qq(OHA);close($fh) or die $!"
Der Befehl "notepd" ist entweder falsch geschrieben oder
konnte nicht gefunden werden.
No such file or directory at -e line 1.