「MySql＆mSQL」に載っている例題
CGIプログラムを実行するとエラーがでます。
Mysql,CGIとも学習中でよくわかっていません。
なにか、間違いでしょうか。


エラー内容
(offline mode: enter name=value pairs on standard input)


#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp;
use DBI;
CGI::use_named_parameters(1);
my ($server, $sock, $host);
my $output = new CGI;
$server = param('server') or $server = '';
my $driver = DBI->install_driver('mysql');
    my @databases = $driver->func($server, '_ListDBs');
if (not @databases) {
        print header, start_html('title'=>"Information on $server",
        'BGCOLOR'=>'white');
        print <<END_OF_HTML;
<H1>$server<h1>
$serverには稼働中のmSQLサーバがないようです。
</body></html>
END_OF_HTML
        exit(0);
}
        print header, start_html('title'=>"Information on $host",
                                'BGCOLOR'=>'white');
        print <<END_OF_HTML;
<H1>$host</h1>
<p>
$hostはソケット$sockを介して接続されています。
<p>
データベース:<br>
<UL>
END_OF_HTML
foreach (@databases) {
        print "<LI>$_\n";
}
print <<END_OF_HTML;
</u1>
</body></html>
END_OF_HTML
exit(0)