#!/usr/bin/perl -w

use strict;

use DBI;

my $dbh = DBI->connect('dbi:Sybase:host=somehost;port=4100', 'sa', '',
		       { syb_err_handler => sub { print "@_\n"; } });

$dbh->do("sp_dbcc_recommendations testdb");