Select Code to Download

$dbh = db_connect($database,$user,$password);

sub db_connect {
   ($database,$user,$password) = @_;
...
   or printError("Unable to connect to $database" . $DBI::errstr);
   return $h;
}

# script config file
 $database = "shafi";
 $user = "shafi"; 
 $password ="shafi";
1;

=================================================
#!/usr/bin/perl
...

    $db_handle->disconnect();
===================================================