System error

error:  Cannot connect: could not connect to server: No route to host
Is the server running on host "10.0.2.1" and accepting
TCP/IP connections on port 5432?
context: 
... 
17:  my $industry = "";
18:  my $show_location = "";
19: 
20:  if (!defined $dbconn) {
21:  $dbconn = DBI->connect("dbi:Pg:dbname=$DB_NAME;host=$DB_HOST;","$DB_USER","$DB_PWD", { PrintError => 0, pg_enable_utf8 => 1 } ) or die "Cannot connect: $DBI::errstr\n";
22:  }
23:  $sth = $dbconn->prepare("SELECT ind_id, initcap(ind_descen) FROM event.industry ORDER BY ind_id");
24:  $sth->execute();
25: 
... 
code stack:  /srv/vhost/apa/public_html/en/roadshow_registration.html:21
raw error






























Cannot connect: could not connect to server: No route to host
Is the server running on host "10.0.2.1" and accepting
TCP/IP connections on port 5432?


Trace begun at /usr/local/share/perl5/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Cannot connect: could not connect to server: No route to host^J^IIs the server running on host "10.0.2.1" and accepting^J^ITCP/IP connections on port 5432?^J') called at /srv/vhost/apa/public_html/en/roadshow_registration.html line 21
HTML::Mason::Commands::__ANON__ at /usr/local/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f2a51c9daf0)') called at /usr/local/share/perl5/HTML/Mason/Request.pm line 1297
eval {...} at /usr/local/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/local/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/share/perl5/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f2a51c7d040)') called at /usr/local/share/perl5/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f2a51c7d040)') called at /usr/local/share/perl5/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f2a5157e1a8)', 'Apache2::RequestRec=SCALAR(0x7f2a51c7d238)') called at (eval 61) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x7f2a51c7d238)') called at -e line 0
eval {...} at -e line 0