>perl -wMstrict -le
"my $bin = qq{\x45\xd2};
 printf qq{0x%04X \n}, unpack 'v', $bin;
"
0xD245