perl跳过前四行

while(<IN>)
{
 next if ($.<4);
 chomp $_; 
}