Select Code to Download

my $foo = $query->param('foo');

...
sub bar {
  print $foo;
}

my $foo = $query->param('foo');

...
  my $foo = shift;
  print $foo;
}