#!/usr/bin/perl -l

    use strict;

    my $dword = pack "N", 0x01020304;

    print unpack "V", pack "b8b8b8b8", unpack "B8B8B8B8", $dword;
    print unpack "N", pack "b8b8b8b8", unpack "B8B8B8B8", $dword;