use strict;
use warnings;
use DBI;
use DBD::Sybase;

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

my $DbiTarget="dbi:Sybase:server=$server";
$DbiTarget .= ";encryptPassword=1";

my $dbh = DBI->connect($DbiTarget, $user, $pass);
my $sth = $dbh->prepare("Admin who_is_down");
$sth->execute;