use DBI;
use DBD::ADO;

$dbh = DBI->connect('dbi:ADO:DSN', 'name', 'password')
            || die $DBI::errstr;

$y = 5;
  $sth = $dbh->prepare("execute sp_test_1 ?");
  $rc = $sth->bind_param_inout(1, \$y, 1) || die $dbh->errstr;
  $sth->execute;
$dbh->disconnect;
print "y = $y\n";