sub Int32  { unpack 'l<', $_[-1] }
sub UInt32 { unpack 'L<', $_[-1] }
__END__
my $hex = pack 'H*', '641e0100';
dd( $hex );
dd( unpack 'i', $hex );
dd( unpack 'I', $hex );
dd( unpack 'j', $hex );
dd( unpack 'J', $hex );
dd( unpack 'l<', $hex );
dd( unpack 'L<', $hex );