#!C:/perl/bin/perl.exe
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

use DBI;

my $cgi = new CGI;
print $cgi->header();
print $cgi->start_html();

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

# My  code

print $cgi->end_html();