Select Code to Download

sub getOraPwd{
...
...
...

}
getOraPwd();

$username="blah";
$password=result from getPwd.pl
$dsn=qq{...};
$dbh=DBI->connect($dsn, $username, $password)};