sub sa_details {
    my $dbh = shift;
    $dbh->nsql( "SELECT userid FROM user", "ARRAY" );
}
my @arry = sa_details(
    Sybase::DBlib->new(
        "user",
        "passwd",
        "host",
    )
);

$DB_ERROR and die $DB_ERROR;
## $Sybase::DBlib::DB_ERROR and die $Sybase::DBlib::DB_ERROR;