gistfile1.txt

use strict;

use IO::File;
my $fh = new IO::File("somefile.txt", "r") || die "can't open file. $!¥n";

# 引数としてファイルハンドル（実体はIO::Fileオブジェクト）を渡す
&some_process($fh);

sub some_process {
    # ファイルハンドルの受け取り
    my $passed_fh = shift;
    # 一行取得
    my $line = $passed_fh->getline;
    
    # 他にも通常のファイルハンドルを使うようにd$passed_fhを使ってごにょごにょできる
    # :
    # :
}