Select Code to Download

 use DBI;
my $driver = "mysql"; 
    my $database = "marketplace_perl";
...
        my $sth = $dbh->prepare("SELECT UserEmail,UserPassword FROM pj
+_user where UserEmail=? and UserPassword=?");

        $sth->execute($UserEmail,$UserPassword);

package Marketplace;
use DBI;
...

    }