#!C:\perl64\bin\perl.exe -wT

use strict;
use warnings;
use DBI;
print "Content-type: text/html \n\n";

# MYSQL CONFIG VARIABLES
my $driver = "mysql";
my $database="test555";
my $tablename3="test77";

my $user = "root";
my $pw = "root";

# PERL MYSQL CONNECT()
my $dbh = DBI->connect("DBI:$driver:$database", $user, $pw, ) ;

 my $sth = $dbh->prepare("
        SELECT *
          FROM t6
         WHERE paragraph='PQX03904'
    ") ;

    $sth->execute() ;
#$dbh->disconnect;

#exit 0;