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";
}

##</code><code>##

 id       CAL_DS              
 -------- --------------------
        1 A                   
        2 AM                  
        3 AMS                 
        4 AMSTEL              
        5 DSTEL