use warnings;
use strict;
use Config;
use Fcntl;

printf "Perl $^V %s ivsize %d byteorder %d\n",
    $Config{archname}, $Config{ivsize}, $Config{byteorder};

# Generate a "binary file" with a string of bytes likely to show up issues in
# decoding
my $binary = "\x91\x34\x33\x90\x81\x32\x31\x80";

for my $fileLE (0, 1) {
    my $fromFile = $fileLE ? 'V4' : 'N4';

    open my $inFH, '<:raw', \$binary;
    read $inFH, my $raw1, 4;
    read $inFH, my $raw2, 4;

    my $long1 = unpack $fromFile, $raw1;
    my $long2 = unpack $fromFile, $raw2;
    my $packed = pack "L2", $fileLE ? ($long1, $long2) : ($long2, $long1);
    my $longlong = unpack 'Q', $packed;

    printf "%s: %016x\n", ($fileLE ? "LE" : "BE"), $longlong;
}