System error

error:  Error during compilation of /var/www/db/common/navbar.mhtml:
Global symbol "$bio_length" requires explicit package name at /var/www/db/common/navbar.mhtml line 391.
BEGIN not safe after errors--compilation aborted at /var/www/db/common/navbar.mhtml line 537.

Stack:
[/var/www/db/common/navbar.mhtml:537]
[/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Interp.pm:817]
[/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Interp.pm:445]
[/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1127]
[/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1041]
[/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1239]
[/var/www/db/movies/autohandler:23]
[/var/www/db/autohandler:2]

context: 
... 
387:  <br>
388:  <A HREF="/db/people/awards.mhtml?id=<% $id %>&display_set=<% $display_set %>">Awards</A> <font size="1">(<% $awards_count %>)</font>
389:  % }
390: 
391:  % if ($bio_length > 0)
392:  % {
393:  <!--
394:  <A HREF="/db/people/bio.mhtml?id=<% $id %>&display_set=<% $display_set %>">Biography</A><P>
395:  -->
... 
533:  % }
534: 
535:  <%init>
536: 
537:  use HKMDB::User;
538:  my $db = HKMDB::Database->new;
539:  my $user = HKMDB::User->new;
540:  my $logged_in = $user->authenticate;
541: 
... 
code stack:  /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Interp.pm:450
/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1127
/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1041
/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1239
/var/www/db/movies/autohandler:23
/var/www/db/autohandler:2
raw error






























Error during compilation of /var/www/db/common/navbar.mhtml:
Global symbol "$bio_length" requires explicit package name at /var/www/db/common/navbar.mhtml line 391.
BEGIN not safe after errors--compilation aborted at /var/www/db/common/navbar.mhtml line 537.

Stack:
  [/var/www/db/common/navbar.mhtml:537]
  [/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Interp.pm:817]
  [/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Interp.pm:445]
  [/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1127]
  [/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1041]
  [/opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm:1239]
  [/var/www/db/movies/autohandler:23]
  [/var/www/db/autohandler:2]



Trace begun at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Interp.pm line 851
HTML::Mason::Interp::_compilation_error('HTML::Mason::Interp=HASH(0x2aa2260)', '/var/www/db/common/navbar.mhtml', 'HTML::Mason::Exception::Compilation=HASH(0x2e56b70)') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Interp.pm line 450
HTML::Mason::Interp::load('HTML::Mason::Interp=HASH(0x2aa2260)', '/db/common/navbar.mhtml') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1127
HTML::Mason::Request::_fetch_comp('HTML::Mason::Request::ApacheHandler=HASH(0x2ced7d0)', '/db/common/navbar.mhtml', 'HTML::Mason::Component::FileBased=HASH(0x34c98b0)', 'SCALAR(0x2ebfb90)') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1041
HTML::Mason::Request::fetch_comp('HTML::Mason::Request::ApacheHandler=HASH(0x2ced7d0)', '/db/common/navbar.mhtml', undef, 'SCALAR(0x2ebfb90)') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1239
HTML::Mason::Request::comp('HTML::Mason::Request::ApacheHandler=HASH(0x2ced7d0)', '/db/common/navbar.mhtml', 'mode', 'movie', 'id', 502, 'display_set', 'big5') called at /var/www/db/movies/autohandler line 23
HTML::Mason::Commands::__ANON__('display_set', 'big5', 'id', 502, 'complete_credits', 1, 'display_set', 'big5', 'id', 502, 'complete_credits', 1) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x34c98b0)', 'display_set', 'big5', 'id', 502, 'complete_credits', 1, 'display_set', 'big5', 'id', 502, 'complete_credits', 1) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1302
eval {...} at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'display_set', 'big5', 'id', 502, 'complete_credits', 1, 'display_set', 'big5', 'id', 502, 'complete_credits', 1) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 955
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0x2ced7d0)', 'display_set', 'big5', 'id', 502, 'complete_credits', 1) called at /var/www/db/autohandler line 2
HTML::Mason::Commands::__ANON__('display_set', 'big5', 'id', 502, 'complete_credits', 1) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f589804b620)', 'display_set', 'big5', 'id', 502, 'complete_credits', 1) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1297
eval {...} at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'display_set', 'big5', 'id', 502, 'complete_credits', 1) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 481
eval {...} at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 481
eval {...} at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x2ced7d0)') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x2ced7d0)') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x2a792a0)', 'Apache2::RequestRec=SCALAR(0x2fb9920)') called at (eval 30) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x2fb9920)') called at -e line 0
eval {...} at -e line 0