#!/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;