System error

error:  Can't call method "prepare" on an undefined value at /home/count/www/swag.genericorp.net/htdocs/index.html line 61.
context: 
... 
57:  $mon = sprintf "%02d", $mon;
58:  my $start_of_month = "$year-$mon-01";
59: 
60:  # find out if we've got any swag left over from previous months
61:  my $leftover_sth = $dbh->prepare("select *,date_format(sent,'%Y%m') month from donations");
62:  $leftover_sth->execute();
63:  my ($leftover, %dons, $carry);
64:  # initialize
65:  for my $y (2005..$year) {
... 
code stack:  /home/count/www/swag.genericorp.net/htdocs/index.html:61
raw error






























Can't call method "prepare" on an undefined value at /home/count/www/swag.genericorp.net/htdocs/index.html line 61.


Trace begun at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "prepare" on an undefined value at /home/count/www/swag.genericorp.net/htdocs/index.html line 61.^J') called at /home/count/www/swag.genericorp.net/htdocs/index.html line 61
HTML::Mason::Commands::__ANON__ at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55f405b279e0)') called at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/Request.pm line 1297
eval {...} at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55f40561d7d8)') called at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55f40561d7d8)') called at /usr/local/apache1.3/perl/lib/site_perl/5.12.4/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x55f405b12f50)', 'Apache=SCALAR(0x55f405b132f8)') called at (eval 30) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache=SCALAR(0x55f405b132f8)') called at /dev/null line 0
eval {...} at /dev/null line 0