my $raw = "\x01\x02\x03\x04";;
my $local = unpack 'L<', $raw;;

##</code><code>##

printf "%08x\n", $local;;
04030201

##</code><code>##

my $raw = "\x01\x02\x03\x04";;
my $local = unpack 'L>', $raw;;

##</code><code>##

printf "%08x\n", $local;;
01020304