perl读取跳过第一行

open READ,"<","G:/project-xiaomai/yourfile.txt"; 

readline READ;    # skip the first line 

 while (<READ>) 
{ 
　　print  $_;  
}  
close READ;