my $i = 7;
my $j = 9;
my $k;

$k = $i & $j;
printf ("$i & $j: %8i  %8X\n", $k, $k);

$k = $i | $j;
printf ("$i | $j: %8i  %8X\n", $k, $k);

$k = $i ^ $j;
printf ("$i ^ $j: %8i  %8X\n", $k, $k);

$k = ~0;
printf ("~0:    %8i  %8X\n", $k, $k);

$k = ~$i;
printf ("~$i:    %8i  %8X\n", $k, $k);

$k = $i << 3;
printf ("$i << 3:%8i  %8X\n", $k, $k);

$k = $i >> 3;
printf ("$i >> 3:%8i  %8X\n", $k, $k);