use DBI;
 my ($Driver, $DSN);


   $DSN = "DBI:mysql:database=forums;host=10.xx.xx.xx;port=3306";
   $dbh = DBI->connect($DSN, "xxxxx", "xxxx"); 
    
 print "ContentŁ­type:text/html\n\n";
 print "< html>";
 print "< head>";
 print "< title>this is a test< /title>";
 print "< /head>";
 if($dbh)
{
	 print "< body>< p>OK success !< /body>";
	}
	else
	{
		print "< body>< p>fail<p> $DBI::errstr< /body>";
		}
 print "< /html>";
 exit;