sub bin2hextext {
  my ($blob) = shift;
  "0x" . join ('', map {sprintf("%02X",unpack("C",$_))} 
                       split(//, $blob));
}

my $DSN = 'driver={SQL Server};Server=new-borg;database=master;uid=;pwd=;';
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";

my $sql = qq{ select * from sysusers };

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

my @varbincolumns = qw(2);
while (@row = $sth->fetchrow_array()) {
    @row[@varbincolumns] = map {bin2hextext($_)} @row[@varbincolumns];
    print $#row,':',join(':',@row),"\n";
}

$sth->finish();