Dasgar('dbi:ODBC:MSSQL','Url.txt');
Dasgar('dbi:ODBC:MSSQL','Url_Ex.txt');
sub Dasgar {
   my( $dbstring, $filename );
   ..DBI->new($dbstring);
  ...open ... $filename
  ...
}