Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $str (qw(one two three)) {
...
END block THREE
END block TWO
END block ONE