$ perl -V:byteorder
byteorder='1234';

$ perl -e"print 0x12345678 "
305419896

$ perl -e"print unpack q{H*}, pack q{N*}, 0x12345678 "
12345678

$ perl -e"print unpack q{H*}, pack q{N*}, 305419896 "
12345678

$ perl -e"print sprintf q{%x}, 305419896 "
12345678