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/real_estate.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(0xb001dfc)') 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__ at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xae05ef8)') 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/httpd/html/real_estate.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(0xbf34ae8)') 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(0xbf8cff8)') 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(0xae05940)') 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(0xbf8cff8)') 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(0xbf8cff8)') 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(0xae68d14)', 'Apache=SCALAR(0xaf947b8)') called at (eval 32) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache=SCALAR(0xaf947b8)') called at /dev/null line 0
eval {...} at /dev/null line 0