$ cat junk while( STDIN ){ @ARGV=2; } # 4 # 5 $ perl -w -Mstrict junk Bareword "STDIN" not allowed while "strict subs" in use at junk line 5. Execution of junk aborted due to compilation errors.