#!/usr/bin/perl -w

use strict;
use DBI;

my $server="MY_REPSERVER";
my $user="repserv_user";
my $pass="welcome";

my $dbh = DBI->connect("dbi:Sybase:server=$server", loginTimeout=20;timeout=60;encryptPassword=1, $user, $pass,{
                                        PrintError => 0, # Don't print
+ warning messages
                                        RaiseError => 1 } );
my $sth = $dbh->prepare("Admin who_is_down");
$sth->execute;

##</code><code>##

DBI connect('server=MY_REPSERVER;loginTimeout=20;timeout=60;encryptPassword=1','repserv_user',...) failed: Server message number=14021 severity=12 state=0 line=0 server=MY_REPSERVER text=Invalid login attempted by user 'repserv_user' OpenClient message: LAYER = (4) ORIGIN = (1) SEVERITY = (4) NUMBER = (44)
Server MY_REPSERVER, database
Message String: ct_connect(): protocol specific layer: external error: The attempt to connect to the server failed.