use DBI;
$dsn = 'LNB_HHH_APP';
$user = 'db_analyst';
$password = 'db_pass';
my $data_source = "dbi::Sybase:LNB_HHH_APP";
my $dbh = DBI->connect($data_source, $user, $password)||die "Can't connect to $data_source: $DBI::errstr";