#!/usr/bin/perl -l --
use strict;
use warnings;

use DBI;

delete $ENV{LANG};
$ENV{SYBASE}='/opt/sybase';

my $dbh = DBI->connect('DBI:Sybase:server=asus','sa','') or die $DBI::errstr;

print "Let's go!";

print $dbh->selectrow_array(<<'SQL');
select count(*)
  from syskeys
 where type = 1
SQL

print "And now placeholders!";

print $dbh->selectrow_array(<<'SQL', undef, 1);
select count(*)
  from syskeys
 where type = ?
SQL

print "END.";