System error

error:  Can't call method "prepare" on an undefined value at /home/chattanoogasearch/lib/mypdx_events.mas line 24.
context: 
... 
20:  else {
21:  $sql = "SELECT * FROM Upcoming WHERE UpComingDate>='$today[0]-$today[1]-$today[2]'
22:  ORDER BY UpcomingDate,UpcomingTitle LIMIT 10";
23:  }
24:  $sth = $dbh->prepare($sql);
25:  $sth->execute;
26:  if($sth->rows == 0) {
27:  $data = "<li>I am sorry, but there are no events to list</li>";
28:  }
... 
code stack:  /home/chattanoogasearch/lib/mypdx_events.mas:24
/home/chattanoogasearch/lib/mypdx_update.mas:3
/home/chattanoogasearch/httpd/html/cars.html:2
/home/chattanoogasearch/httpd/html/autohandler:10
raw error






























Can't call method "prepare" on an undefined value at /home/chattanoogasearch/lib/mypdx_events.mas line 24.


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/chattanoogasearch/lib/mypdx_events.mas line 24.^J') called at /home/chattanoogasearch/lib/mypdx_events.mas line 24
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(0xb890a28)') 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) called at /home/chattanoogasearch/lib/mypdx_update.mas line 3
HTML::Mason::Commands::__ANON__('template', 'cars_template') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xb77d4f0)', 'template', 'cars_template') 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, 'template', 'cars_template') called at /home/chattanoogasearch/httpd/html/cars.html line 2
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(0xb9628e8)') 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 943
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0xc0be8e4)') called at /home/chattanoogasearch/httpd/html/autohandler line 10
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(0xb6a20d4)') 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(0xc0be8e4)') 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(0xc0be8e4)') 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(0xb1f15e0)', 'Apache=SCALAR(0xc269724)') called at (eval 32) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache=SCALAR(0xc269724)') called at /dev/null line 0
eval {...} at /dev/null line 0