#!/fs/COTS/gnu/bin/AIX/perl -l

$raw = pack 'H*', '00000034000031b110191403b8811bb1366e4'; 
print for reverse unpack 'dCCVV', reverse $raw