#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "OK 1";
use DBI;
print "OK 2";
$dbh = DBI->connect("DBI:mysql...
$dbh->disconnect();
print "OK 3";