#为了使在子例程中传递文件句柄不出问题

 #我们要把文件句柄转为glob或typeglob

 #转为glob

 $fd = *MY_FILE;

 #转为typeblog

 $fd = \*MY_FILE;

 #两种形式都行， 但\*MY_FILE更安全， 一般都用这个形式

 #传递给子程序

 hello(\*MY_FILE);

 #从子程序返回

 sub get_fd(){

     open FILE, "readme.txt";

     return \*FILE;

 }

 #fileno()函数可以检测一个变量是否是一个有效的文件句柄

 #成功时返回文件描述符（一般是大于3, STDIN(0), STDOUT(1), STDERR(3)）

 #当检测到不是文件句柄时返回undef;

 die "Not a filehandle" unless(fileno($fh));