第一章: 文件句柄转化为 typeglob/glob 与文件句柄检测

 #为了使在子例程中传递文件句柄不出问题
 #我们要把文件句柄转为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));