System error

error:  Can't call method "prepare" on an undefined value at /home/vsa/mod-lib/db/../../../dntk/mod-lib/db/db.pm line 121.
context: 
... 
117: 
118:  # NEW --------------------------------------------------
119:  $dsn = "DBI:mysql:database=$DN::DBNAME;host=$DN::DBHOST";
120:  $DN::dbh = DBI->connect($dsn, $DN::DBUID, $DN::DBPW, { mysql_no_autocommit_cmd => 1});
121:  $sth = $DN::dbh->prepare("$CMD") || die "error:" . $DN::dbh->errstr . "\n";
122:  $sth->execute || die "error:" . $sth->errstr . "\n";
123: 
124: 
125:  $self->{errstr} = $sth->errstr;
... 
code stack:  /home/vsa/mod-lib/db/../../../dntk/mod-lib/db/db.pm:121
/home/vsa/mod-lib/db/T_MEMBER.pm:53
/home/aw3/dhandler:66
raw error






























Can't call method "prepare" on an undefined value at /home/vsa/mod-lib/db/../../../dntk/mod-lib/db/db.pm line 121.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "prepare" on an undefined value at /home/vsa/mod-lib/db/../../../dntk/mod-lib/db/db.pm line 121.^J') called at /home/vsa/mod-lib/db/../../../dntk/mod-lib/db/db.pm line 121
db::new('T_MEMBER', 'select * from T_MEMBER where USER_ID = \'route3\'', 'T_MEMBER') called at /home/vsa/mod-lib/db/T_MEMBER.pm line 53
T_MEMBER::new('T_MEMBER', '', 'route3') called at /home/aw3/dhandler line 66
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x558e3d27f2a8)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1300
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x558e3d28ca80)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 165
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x558e3d28ca80)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 831
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x558e3d1dc318)', 'Apache2::RequestRec=SCALAR(0x558e3d2ce630)') called at (eval 346) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x558e3d2ce630)') called at -e line 0
eval {...} at -e line 0