System error

error:  cannot connect to dbi:mysql:AAP at /usr/local/lib/site_perl/DataControl.pm line 149.
context: 
... 
145:  my $userName = $dbData{ $dbName }[1];
146:  my $password = $dbData{ $dbName }[2];
147: 
148: 
149:  $dbh = DBI->connect( $dataSource, $userName, $password ) or die "cannot connect to $dataSource";
150:  return $dbh;
151:  }
152: 
153:  #-----------------------------------------------------------
... 
code stack:  /usr/local/lib/site_perl/DataControl.pm:149
/home/jim/SANDBOX/AAP/autohandler:91
raw error






























cannot connect to dbi:mysql:AAP at /usr/local/lib/site_perl/DataControl.pm line 149.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('cannot connect to dbi:mysql:AAP at /usr/local/lib/site_perl/DataControl.pm line 149.^J') called at /usr/local/lib/site_perl/DataControl.pm line 149
DataControl::connectToDB('DataControl', 'aap') called at /home/jim/SANDBOX/AAP/autohandler line 91
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x5555922bb668)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1300
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x555592204708)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 165
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x555592204708)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 831
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x5555922b33a8)', 'Apache2::RequestRec=SCALAR(0x555592204b58)') called at (eval 26) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x555592204b58)') called at -e line 0
eval {...} at -e line 0