use DBI;

my $param = shift;

my $dbh = DBI->connect('dbi:Sybase:database=testdb', 'sa', '');
my $sth = $dbh->prepare("select * from CAL where CAL_DS like ? + '%'");
$sth->execute($param);
while(my $d = $sth->fetch) {
    print "@$d\n";
}