use strict;
use warnings;

##</code><code>##

use DBI;
my $driver = "mysql"; 
my $database = "marketplace_perl";
my $dsn = "DBI:$driver:database=$database";
my $userid = "root";
my $password = "root";
my $dbh = DBI->connect($dsn, $userid, $password )
   or die $DBI::errstr;###### 
my $dbh=connect_db(); ######### WHAT???#### !!!! #######
## my $dbh is defined twice!!!
my $sth = $dbh->prepare("SELECT UserEmail,UserPassword FROM pj_user where UserEmail=? and UserPassword=?");
$sth->execute($UserEmail,$UserPassword);