sub getOraPwd{
...
...
return $password;


}
getOraPwd();