System error

error:  Can't call method "prepare" on an undefined value at /home/www/plumbandgas/Contact/Contact.mas line 39.
context: 
... 
35:  }
36: 
37:  my $dbh = DBI->connect( 'DBI:mysql:2workv1' );
38: 
39:  eval (my $sth = $dbh->prepare($Sql));
40:  $sth->execute;
41: 
42:  @row=();
43: 
... 
code stack:  /home/www/plumbandgas/Contact/Contact.mas:39
/home/www/plumbandgas/autohandler:32
raw error






























Can't call method "prepare" on an undefined value at /home/www/plumbandgas/Contact/Contact.mas line 39.


Trace begun at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "prepare" on an undefined value at /home/www/plumbandgas/Contact/Contact.mas line 39.^J') called at /home/www/plumbandgas/Contact/Contact.mas line 39
HTML::Mason::Commands::__ANON__ at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x555556668ce0)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1284
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 943
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0x555555a28aa0)') called at /home/www/plumbandgas/autohandler line 32
HTML::Mason::Commands::__ANON__ at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55555680d3c0)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1279
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 473
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 473
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 425
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x555555a28aa0)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x555555a28aa0)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x555556808b10)', 'Apache2::RequestRec=SCALAR(0x555556828340)') called at (eval 36) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x555556828340)') called at -e line 0
eval {...} at -e line 0