Select Code to Download

my $foo = 'Password';

...
   my $val = shift;
   print "val=<$val>\n";
}

val=<Foo is $foo>
val=<Foo is Password>
val=<Password>