Select Code to Download

sub htonl {
  my $input = shift;
  my $output = unpack( 'N*', pack( 'L*', $input ) );
  return $output;
}

$packed = pack 'l', 17;;

...
0
0
0

$unpacked = unpack 'N', $packed;;

...
55
50
0