WebDB というモジュールを作り use WebDBしましょう

標準の　Perlディレクトリに置くと
#!D:/xampp/perl/bin/perl -w　で動きます。
私は　Perl の中の　libフォルダに入れました

これは　本に書いてあるコードを改造してあります。
mod_perlで動かさないからです。

WebDB.pm

package WebDB;
use strict;
use DBI;
use utf8;
my $host_name = "localhost";
my $dbname = "trinity777";
my $user = "root";
my $passwd = "あなたのパスワード";
my $dsn = "DBI:mysql:$dbname;host=$host_name";
sub connect
{return (DBI->connect($dsn,$user, $passwd,{PrintError => 0, RaiseError => 1})
);}
sub trim
{my $str = shift;
return "" if !defined $str;
$str =~ s/^\s+//;
$str =~s/\s+$//;
return($str);
}
1;

my $dbname = "trinity777";　は　あなたのデータベース名にしてね
ここでは　この名前で進めていきます。