use strict;
use DBI;
my $dbh = mssql(); # connect

# temp test table setup
my $t = '#bintest';
$dbh ->do("CREATE TABLE $t
         (bin1 varbinary(max))");  

my $hex_in = '0x151552dabe9d1ce4e8dd6b635f23d4c0';
$dbh->do("INSERT INTO $t (bin1) 
          VALUES ( CONVERT(varbinary(max), ?, 1) )",undef,$hex_in);
#		  

my ($bin_out) = $dbh->selectrow_array(
  "SELECT bin1 FROM $t");

# style 1 adds 0x
my ($hex_out) = $dbh->selectrow_array(
  "SELECT CONVERT(varchar(max),bin1,1) 
   FROM $t");

print "hex input  = $hex_in\n";
print "bin out    = $bin_out\n";
print 'hex output = 0x',unpack('H*',$bin_out),"\n"; 
print "hex output = $hex_out\n";