open(DBFILE,"~/.passwd");
while($line = <DBFILE>)
{
    if ($line =~ /$dbname(\w+)(\w+)/) {
        $dbUser = $1;
        $dbPass = $2;
    }
}