It's not clear how Win32::TieRegistry is coming into the picture here. Is that something the Unwired Planet Perl SDK uses?

Most of your DBI code is commented out, though -- you're basically just creating a connection, printing some log entries, and disconnecting. $validid_login is going to be undefined: perhaps AppUtils::OutputDeck has issues with that.