#!/usr/bin/env perl

use strict;
use warnings;

use DBI

my $dsn = "jdbc:sybase:Tds:sample.college.com:29813:";
my $user     = "$ENV{'ESM_DBO'}";
my $password = "$ENV{'ESM_DBO_PASSWD'}";

my $dbh = DBI->connect( $dsn, $user, $password ) or die $DBI::errstr;

__END__