while (<>) {
    binmode(ARGV), seek(ARGV,0,0), next if $.==1;
    ...