PASSWD=`perl -e"chomp; print((split /:/)[2]) if /$database/ && /$user/" < password_file`