DBI does not know TSQL.
It knows SQL.
In Oracle I'd do something like ...

$sql = <<EOT;
select count(*) from Orders where ShippedDate > sysdate - 365*6
EOT

$sth = $dbh->prepare($sql);
$sth->execute();

if (($count) = $sth->fetchrow_array()) {
    print "$server $count\n";
}
else {
    print "$server Unable to get count\n";
}

$sth->finish();
[download]