Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"foreach my $filename (qw(a b c)) {
...
("before while loop, \$filename is", "c")

("in while loop, \$_ is", undef)