How to connect in Perl to MySQL database

 How to connect in Perl to MySQL database

#!/usr/bin/perl

# PERL MODULE
use Mysql;

# MYSQL CONFIG VARIABLES
# MYSQL CONFIG VARIABLES
$host = "localhost";
$database = "store";
$tablename = "inventory";
$user = "username";
$pw = "password";

# PERL CONNECT()
$connect = Mysql->connect($host, $database, $user, $pw);

# SELECT DB
$connect->selectdb($database);

# LISTTABLES()
@tables = $db->listtables;

# PRINT EACH TABLE NAME
@tables = $connect->listtables;
foreach $table (@tables) {
    print "$table
";
}


# DEFINE A MySQL QUERY
$sqlstr = "SELECT * FROM $tablename";
$sqlstr="select id, captcha_question from captcha where id='$captch_id' LIMIT 1";

# EXECUTE THE QUERY
$execute = $connect->query($sqlstr);

$rownumber = $execute->numrows();
$fieldnumber = $execute->numfields();

# PRINT THE RESULTS
print $rownumber."
";
print $fieldnumber."
";

# HTML TABLE
print "
"; # FETCHROW ARRAY while (@results = $execute->fetchrow()) {     print " "; } print "

id	product	quantity
"     .$results[0]."	"     .$results[1]."	"     .$results[2]."

";