my(@tmp) = <FILEHANDLE>;
    shift $tmp[0];