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