#!/usr/bin/perl -w

use strict;
use DBI;

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

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

##</code><code>##

E. 2005/01/18 12:58:38. ERROR #14024 USER(repserv_user) - /execint.c(1222)
        Executor does not allow the entered command in the current mode.