System error

error:  Undefined subroutine &HTML::Mason::Commands::connect_pg_hla called at /home/httpd/htdocs/content/sequence/ELF/epitope_analyzer.html line 22.
context: 
... 
18:  use DBIUtils;
19:  use MotifScan;
20:  </%once>
21:  <%init>;
22:  my $dbh = eval { connect_pg_hla()};
23:  die $@ if $@;
24: 
25:  my $inputstring = $sample_input ? 'DTVLEDMNLPGRWKPKMIG' : '';
26: 
... 
code stack:  /home/httpd/htdocs/content/sequence/ELF/epitope_analyzer.html:22
/home/httpd/htdocs/content/autohandler:57
raw error






























Undefined subroutine &HTML::Mason::Commands::connect_pg_hla called at /home/httpd/htdocs/content/sequence/ELF/epitope_analyzer.html line 22.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Undefined subroutine &HTML::Mason::Commands::connect_pg_hla called at /home/httpd/htdocs/content/sequence/ELF/epitope_analyzer.html line 22.^J') called at /home/httpd/htdocs/content/sequence/ELF/epitope_analyzer.html line 22
eval {...} at /home/httpd/htdocs/content/sequence/ELF/epitope_analyzer.html line 22
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f7a79318a90)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1279
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 943
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0x7f7a7926c620)') called at /home/httpd/htdocs/content/autohandler line 57
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f7a7935d080)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1279
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 473
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 473
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 425
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f7a7926c620)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f7a7926c620)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f7a792687a0)', 'Apache2::RequestRec=SCALAR(0x7f7a77e36610)') called at /etc/httpd/conf/mason_handler.pl line 63
MyApp::Mason::handler('Apache2::RequestRec=SCALAR(0x7f7a77e36610)') called at -e line 0
eval {...} at -e line 0