Select Code to Download

$ perl -Mstrict -wE 'sub say_args { my @foo = shift; my @bar = shift; 
+say "foo: $_" for @foo; say "bar: $_" for @bar; } my @foo = qw/a b c/
+; my @bar = qw/x y z/; say_args( @foo, @bar );'
foo: a
...
bar: y
bar: z