Select Code to Download

my $dbh = vol::connect_new($config{'db'}{qw(db_host_name db_name db_us
+er db_pw)});

sub connect_new {
   my($host,$db,$user,$pw) = @_;
...
   return (DBI->connect($dsn,$user,$pw,
      {PrintError => 0, RaiseError => 1}));
}