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