#!C:/perl/bin/perl.exe
use warnings;
use strict;

use DBI;

my $dbh = DBI->connect('DBI:ODBC:DSN=MY DATABASE', 'login', '' )
or die "Can't connect to database\n$DBI::errstr";

# My  code