sub is_filehandle {
　　my $fh = shift;
　　# ファイルハンドルとして扱える、*FHや$fhが渡されたときだけ
　　# 真になるようにするにはどう書けばいいですか？
　　return $fh =~ m/^(GLOB|\*)/; # みたいな方法しか思いつきません。
　　# 確実な方法を教えてくださいです。。。
}
open(FH, '<', 'test1.txt');
print is_filehandle(*FH), "\n";
open(my $fh, '<', 'test2.txt');
print is_filehandle($fh), "\n";