(module)FileHandle

undef なスカラ変数を引数にopenをcallすると、perl 5.005 の strict 環境下ではエラーになる。

--
use FileHandle;

my $fh;
$fh = new FileHandle "sample.txt", "r"
  or die "cannot open: $!\n";
while (<$fh>) {
  print;
}
$fh->close;
--

これでOK