#!/usr/local/bin/perl -w

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

sub SQL {
my $parm1       = $_[0]; #sql statement
my $parm2       = $_[1]; #server
my $parm3       = $_[2]; #username
my $parm4       = $_[3]; #password
my $parm5       = $_[4]; #dbname
my $parm6       = $_[5]; #task type
my $parm7       = $_[6]; #object_name


my ( @data, $data );
<P>

</P>
my $dbh=DBI->connect("dbi:Sybase:$parm2","$parm3", "$parm4" ) or die DBI::errstr;
$dbh->do("use ${parm5}");
$sth = $dbh->prepare(${parm1});
$sth->execute;

while ( @data=$sth->fetchrow_array )
        { print "@data\n";             }


$sth->finish;
$dbh->disconnect();

}

###MAIN####
&SQL("select \@\@servername", "syb_arlu9_new","testman","testman06", "master");
sleep 10;
&SQL("select \@\@servername", "syb_arlu10_new","testman","testman06", "master");

##</code><code>##

testSQL.pl
syb_arlu9_new
syb_arlu9_new