Select Code to Download

my $bar = "world";

sub foo
{
    while (@_) { $bar = shift; $params->{$bar} = shift; }

my $_;

local $_=whatever;

#!/usr/bin/perl -l

...
foo for @q;

__END__