>>890
ありがとうございます。
未初期化の場合だけの特例なのですね。勉強になります。
ちなみにいくつか試したのですが
open my $foo = undef, "foo.txt"; --> ＯＫ
open local $main::foo = undef, "foo.txt"; -->ＯＫ
open our $foo = undef, "foo.txt"; --> ＮＧ（何も表示されない）
でした。ourは別モノらしい。