Select Code to Download

    #!/usr/bin/perl -wl

...
    __END__
    Prints: 0000000011010110

    my $style_word2 = $posture | $app_width << 2 | $structure << 5;

    printf "%016b\n", $style_word2;