my $password = &getPassword;
print "$password\n";

sub getPassword {
 my $pass = 'willi';
 return $pass;
}