#!/usr/bin/perl print "Content-type: text/html "; print "<html><body>DBI:"; use DBI; $dbh=DBI->connect("DBI:mysql:データベース名:localhost","ユーザー名","パスワード"); if ( !$dbh ) { print "接続失敗"; } else { print "接続成功"; } $dbh->disconnect; print "</body></html>";
