Select Code to Download

 #!c:\perl64\bin\perl
    use DBD::Mysql;
    use DBI;
...
    print $affectedrows."<br />";
    print $lastid."<br />";

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

...
#$dbh->disconnect;

#exit 0;