Select Code to Download

sidhekin@blackbox:~$ perl
foreach my $thing (qw/foo bar baz/) {
   print "$thing -> ";
...
__END__
Modification of a read-only value attempted at - line 3.
foo ->