my $foo = 'Password';

printit('Foo is $foo');
printit("Foo is $foo");
printit($foo);

sub printit {
   my $val = shift;
   print "val=<$val>\n";
}

##</code><code>##

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