Select Code to Download

$ cat junk
while( STDIN ){
    @ARGV=2;
...
$ 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.

$ cat junk
while( STDIN ){
    @ARGV=2;
}

 $ cat junk
while( STDIN ){
    @ARGV=2;
}
close STDIN;

$ perl -Mstrict junk
Bareword "STDIN" not allowed while "strict subs" in use at junk line 4
+.
Execution of junk aborted due to compilation errors.

$ perl -w junk
Bareword found in conditional at junk line 4.
Terminating on signal SIGINT(2)

$ cat junk
while( STDIN ){
    @ARGV=@ARGV;
...
g     <1> close vK/1 ->h
f        <#> gv[*STDIN] s ->g
junk syntax OK