sub print2 { if(++$line > $LINEMAX) { $line=0; getc; } print @_; }