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

##</code><code>##

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