>>138
渡す方は、
open(FD, "hoge") or die;
test(*FD{IO});

または

my $fh;
open($fh, "hoge") or die;
test($fh);

受け取る方はどちらでも
sub test {
my $fh = shift;
}

ただし、perl 5.8 以降だった気がする