my $hex = pack 'H*', '641e0100';
print unpack 'I', $hex;print "\n";