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

bar();

sub bar {
  print $foo;
}