Select Code to Download

sub mySub{
  my $Arg = shift;
...
sub mySub2{
  my ($Arg) = @_;
}

sub test{
  $_[0] = 'New Value';
...
print "$Var\n";
test ($Var);
print "$Var\n";

Hi there
New Value