%(~)>perl testwhile
syntax error at t line 1, near "while <*.*>"
syntax error at t line 4, near "}"
Execution of t aborted due to compilation errors.
%(~)>