>>567
ファイルハンドルをmyで宣言したレキシカル変数に渡すことはできるよ。

http://perldoc.jp/docs/perl/5.6.1/perlfaq5.pod#How32can32I32use32a32filehandle32indirectly63