ハンドル名を変数に入れる

undef なスカラー変数をハンドル名に指定して open する。

my $fh;
open($fh, "> $file") or die;
&function($fh);
close($fh);

sub function {
  my $handle = shift;

  while (<$handle>) {
    print;
  }
}