#!/usr/bin/perl

use DBI;
$dbh = DBI->connect('DBI:Sybase:server=DEV;', $user, $passwd) or die "Cannot connect:$@\n";
$sth = $dbh->prepare("declare \@test numeric(9,4)
                                        exec C3206 \@diskreads=\@test OUTPUT");
        $sth->execute;
        while($d = $sth->fetch)
        {
             $test = $d->[0];
             print "Test is $test\n";
        }