test.pl fix

print first $B$rDI2C(B