Select Code to Download

#! perl -slw
use strict;
...
open INDEX, '>', $INDEX or die "$INDEX : $!";
print INDEX "$key:$val" while ( $key, $val ) = each %index;
close INDEX;

P:\test>perl -c windex-1.pl
windex-1.pl syntax OK

P:\test>windex-1.pl *.pl
710:No such file or directory at P:\test\windex-1.pl line 15.
...
710:No such file or directory at P:\test\windex-1.pl line 15.
710:No such file or directory at P:\test\windex-1.pl line 15.
...

while( my $file = pop @ARGV ) {

P:\test>windex-1.pl *.pl
306836-trietest.pl:Permission denied at P:\test\windex-1.pl line 15, <
+FILE> line 83342.

P:\test>type words.index
expletive:2
...
paws:6
"\n$_:2
...