# 3-bytes, network order

my $n = unpack('N', "\x00".$_);