use strict;
use DBI;
{
    my $user = 'someuser';
    my $pass = 'somepass';
    sub myconnect() {
        DBI->connect( 'dbi:ODBC:sometable',$user, $pass, {RaiseError=>1}) or die DBI->errstr;
        # or whatever
    }
}
1;