if ($uname eq '') {
 print "Please enter a username";
} elsif ($pword eq '') {
 print "Please enter a password";
} elsif ($sth->selectrow_array('SELECT COUNT(*) FROM '.$Tablename.
'WHERE username = 0x'.unpack('H*',$uname).
' AND password = 0x'.unpack('H*',$pword))) {
 # Successful login
 print "You're not logged in";
} else {
 print "Username or password wrong";
}