Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
"foreach my $origName (qw(foo bar baz)) {
...
generated bar(4 5 6)
generated baz(7 8 9)
this also works: 9 8 7
  2. or download this
    >perl -wMstrict -le
"foreach my $origName (qw(foo bar)) {
...
"
generated foo(1 2 3)
generated bar(4 5 6)