#!/usr/local/bin/perl
#
 use strict;
 use warnings;
 use Config;

 print "Byte order:   $Config{byteorder}\n";    # expect byteorder='4321' or '1234';

 my $hexstring = "01020304";        # Hex number
 my $decnumber = hex $hexstring;

 print "Hex: $hexstring  is  Dec:  $decnumber\n";        # expect 16909060

 my $netnumber = pack( "N", $decnumber );

 print "Dec: $decnumber  is  'N': '",unpack("H8",$netnumber),"'  as Network or Big-endian\n";

 my $Nonnetnumber = pack( "V", $decnumber );         # Vax or little-endian

 print "Dec: $decnumber  is  'V': '",unpack("H8",$Nonnetnumber),"'  as Vax or Little-endian\n";

 $Nonnetnumber = pack( "L", $decnumber );         # as native format

 print "Dec: $decnumber  is  'L': '",unpack("H8",$Nonnetnumber),"'  as native format\n";