Given his use of pack 'C', I imagine he wants the single byte 1B, so

print BIN pack('C', hex($hex));
[download]