#!/usr/bin/perl -wl

    use strict;

    my $posture     = 2;
    my $app_width   = 5;
    my $structure   = 6;

    my $style_word  = $posture;
       $style_word |= $app_width << 2;
       $style_word |= $structure << 5;
       $style_word  = pack 'n', $style_word;

    print unpack "B*", $style_word;

    __END__
    Prints: 0000000011010110