#!/usr/bin/env perl -w
use strict;
use 5.010;
use DBI;
my $DEBUG = 1;

&db_connect( 'foo', 'bar', 'baz' );

sub db_connect {
  my ($srvr, $usr, $pwd) = @_;
  
  my $DSN = "dbi:ODBC:Server=$srvr; UID=$usr;PWD=$pwd";
  $DEBUG && say $DSN;

  my $dbh=DBI->connect($DSN, { RaiseError => 1 });
}
__END__