It took awhile but if anyone is interested here's a conversion of sub get_email for dbmanSQL:
sub get_email {
# --------------------------------------------------------
# Pulls the email address from the password file.
my ($message, $userid, $pw, $view, $add, $del, $mod, $admin, $addr,
$password, $found, $output, $pass);
my $username_q = $DBH->quote($in{'userid'});
my $addr_q = $DBH->quote($in{'addr'});
$query = qq! SELECT addr FROM $db_table_user WHERE username = $username_q !;
my $sth = $DBH->prepare ($query) or &cgierr("Unable to query database. Reason: $DBI::errstr. Query: $query");
$sth->execute or &cgierr("Unable to query database. Reason: $DBI::errstr. Query: $query");
if ($sth->rows) {
my (@data, $username, $pw, $email);
while (@data = $sth->fetchrow_array) {
$addr = $data[0];
}
}
$sth->finish;
$rec{'email'}=$addr;
}