System error

error:  Error during compilation of /srv/www/kung-foo.net/html/kungfoo/sgae/index.html:
Global symbol "$dbuser" requires explicit package name at /srv/www/kung-foo.net/html/kungfoo/sgae/index.html line 98.
Global symbol "$dbpass" requires explicit package name at /srv/www/kung-foo.net/html/kungfoo/sgae/index.html line 98.

context: 
... 
94:  <%perl>
95:  my ( $dbh, $sth, $row, $tmp, $tmp2 );
96: 
97:  eval {
98:  $dbh = DBI->connect('dbi:Pg:dbname=www-data', $dbuser, $dbpass, { AutoCommit => 0, RaiseError => 1 });
99: 
100:  # Contamos cuantas aportaciones hay...
101:  ( $tmp ) = $dbh->selectrow_array("SELECT COUNT(*) FROM sgae_acro");
102:  $m->out(" <p>\n"
... 
code stack:  /usr/share/perl5/HTML/Mason/Interp.pm:445
/usr/share/perl5/HTML/Mason/Request.pm:246
/usr/share/perl5/HTML/Mason/Request.pm:211
/usr/share/perl5/HTML/Mason/ApacheHandler.pm:94
/usr/share/perl5/Class/Container.pm:275
/usr/share/perl5/Class/Container.pm:353
/usr/share/perl5/HTML/Mason/Interp.pm:348
/usr/share/perl5/HTML/Mason/ApacheHandler.pm:874
/usr/share/perl5/HTML/Mason/ApacheHandler.pm:828
/srv/www/kung-foo.net/lib/Kungfoo/ApacheHandler.pm:183
-e:0
raw error






























Error during compilation of /srv/www/kung-foo.net/html/kungfoo/sgae/index.html:
Global symbol "$dbuser" requires explicit package name at /srv/www/kung-foo.net/html/kungfoo/sgae/index.html line 98.
Global symbol "$dbpass" requires explicit package name at /srv/www/kung-foo.net/html/kungfoo/sgae/index.html line 98.



Trace begun at /usr/share/perl5/HTML/Mason/Interp.pm line 845
HTML::Mason::Interp::_compilation_error('HTML::Mason::Interp=HASH(0x1601588)', '/srv/www/kung-foo.net/html/kungfoo/sgae/index.html', 'Error during compilation of :^JGlobal symbol "$dbuser" requires explicit package name at /srv/www/kung-foo.net/html/kungfoo/sgae/index.html line 98.^JGlobal symbol "$dbpass" requires explicit package name at /srv/www/kung-foo.net/html/kungfoo/sgae/index.html line 98.^J^J^JStack:^J  [/usr/share/perl5/HTML/Mason/Interp.pm:441]^J  [/usr/share/perl5/HTML/Mason/Request.pm:246]^J  [/usr/share/perl5/HTML/Mason/Request.pm:211]^J  [/usr/share/perl5/HTML/Mason/ApacheHandler.pm:94]^J  [/usr/share/perl5/Class/Container.pm:275]^J  [/usr/share/perl5/Class/Container.pm:353]^J  [/usr/share/perl5/HTML/Mason/Interp.pm:348]^J  [/usr/share/perl5/HTML/Mason/ApacheHandler.pm:874]^J  [/usr/share/perl5/HTML/Mason/ApacheHandler.pm:828]^J  [/srv/www/kung-foo.net/lib/Kungfoo/ApacheHandler.pm:183]^J  [-e:0]^J') called at /usr/share/perl5/HTML/Mason/Interp.pm line 445
HTML::Mason::Interp::load('HTML::Mason::Interp=HASH(0x1601588)', '/kungfoo/sgae/index.html') called at /usr/share/perl5/HTML/Mason/Request.pm line 246
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 231
HTML::Mason::Request::_initialize('HTML::Mason::Request::ApacheHandler=HASH(0x1799800)') called at /usr/share/perl5/HTML/Mason/Request.pm line 211
HTML::Mason::Request::new('HTML::Mason::Request::ApacheHandler', 'error_mode', 'output', 'error_format', 'html', 'interp', 'HTML::Mason::Interp=HASH(0x1601588)', 'comp', '/kungfoo/sgae/index.html', 'args', 'ARRAY(0xc59db0)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0x1601510)', 'apache_req', 'Apache2::Request=SCALAR(0xc59bb8)', 'container', 'HASH(0xc59c60)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 94
HTML::Mason::Request::ApacheHandler::new('HTML::Mason::Request::ApacheHandler', 'error_mode', 'output', 'error_format', 'html', 'interp', 'HTML::Mason::Interp=HASH(0x1601588)', 'comp', '/kungfoo/sgae/index.html', 'args', 'ARRAY(0xc59db0)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0x1601510)', 'apache_req', 'Apache2::Request=SCALAR(0xc59bb8)', 'container', 'HASH(0xc59c60)') called at /usr/share/perl5/Class/Container.pm line 275
Class::Container::call_method('HTML::Mason::Interp=HASH(0x1601588)', 'request', 'new', 'interp', 'HTML::Mason::Interp=HASH(0x1601588)', 'comp', '/kungfoo/sgae/index.html', 'args', 'ARRAY(0xc59db0)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0x1601510)', 'apache_req', 'Apache2::Request=SCALAR(0xc59bb8)', 'container', 'HASH(0xc59c60)') called at /usr/share/perl5/Class/Container.pm line 353
Class::Container::create_delayed_object('interp', 'HTML::Mason::Interp=HASH(0x1601588)', 'comp', '/kungfoo/sgae/index.html', 'args', 'ARRAY(0xc59db0)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0x1601510)', 'apache_req', 'Apache2::Request=SCALAR(0xc59bb8)', 'container', 'HASH(0xc59c60)') called at /usr/share/perl5/HTML/Mason/Interp.pm line 348
HTML::Mason::Interp::make_request('HTML::Mason::Interp=HASH(0x1601588)', 'comp', '/kungfoo/sgae/index.html', 'args', 'ARRAY(0xc59db0)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0x1601510)', 'apache_req', 'Apache2::Request=SCALAR(0xc59bb8)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 874
eval {...} at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 873
HTML::Mason::ApacheHandler::prepare_request('HTML::Mason::ApacheHandler=HASH(0x1601510)', 'Apache2::RequestRec=SCALAR(0xaa4120)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 828
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x1601510)', 'Apache2::RequestRec=SCALAR(0xaa4120)') called at /srv/www/kung-foo.net/lib/Kungfoo/ApacheHandler.pm line 183
Kungfoo::ApacheHandler::handler('Apache2::RequestRec=SCALAR(0xaa4120)') called at -e line 0
eval {...} at -e line 0