use DBI; use CGI qw(param); my $username = param("password"); my $password = param("username"); my $dbh = DBI->connect("DBI:mysql:database=$mydatabase",$username,$password); print "Woo this is wrong, you typed for user: $username password: $password and it seams that there is no such thing!" if !$dbh; ##

##