Select Code to Download

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

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