#!/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");

##</code><code>##

0 10 1 237 gndb2 sp_dbcc_run_recommendations The checkstorage run corresponding to dbid '4', opid '2', reported no faults; therefore, no corrective action is necessary. sp_dbcc_recommendations smlive server
The checkstorage run corresponding to dbid '4', opid '2', reported no faults; therefore, no corrective action is necessary.