./getline.pl: line 3: syntax error near unexpected token `)'
./getline.pl: line 3: `while ( $line = <> )'