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

bar($foo);

sub bar {
  my $foo = shift;
  print $foo;
}