Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my ($x, $y, $z);
...
1, 2, 3
a, b, c
foo, bar, baz

c:\@Work\Perl\monks>perl -wMstrict -le
"my ($x, $y, $z) = qw( 1 2 3 );
...
1, 2, 3
a, b, c
foo, bar, baz