&getPassword = my $Password; #### my $Password = &getPassword; #### my $password = &getPassword; print "$password\n"; sub getPassword { my $pass = 'willi'; return $pass; } #### ----------------------------------- --the good, the bad and the physi-- -----------------------------------