my $var = param('something');
sub print_var {
  print $var;
}
print_var();