#!c:\perl64\bin\perl
    use DBD::Mysql;
    use DBI;
    print "Content-type: text/html \n\n";
    $host = "localhost";
    $database="test555";
    $tablename1="t6";
    $tablename2 ="table123";
    $tablename3="test77";
    $user = "root";
    $pw = "root";
    $connect = DBI->connect($host, $database, $user, $pw);
    $connect->selectdb($database);
    $myquery = "INSERT INTO $tablename3 (testcolumn) VALUES ('try')";
    $execute = $connect->query($myquery);
    $affectedrows = $execute->affectedrows($myquery);
    $lastid = $execute->insertid($myquery);
    print $affectedrows."<br />";
    print $lastid."<br />";


##</code><code>##

#!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;