$ cat pm_1198573.pl
#!env perl
use strict;
use warnings;

print "Input a decimal number between 0 and 255: ";
my $decimal = <STDIN> + 0;
die "Please follow directions!" if $decimal < 0 or $decimal > 255;

print "The number $decimal AND ", (1<<$_), " gives us: ", ($decimal & 1<<$_), "\n"
    for reverse 0 .. 7;

$ perl pm_1198573.pl
Input a decimal number between 0 and 255: 113
The number 113 AND 128 gives us: 0
The number 113 AND 64 gives us: 64
The number 113 AND 32 gives us: 32
The number 113 AND 16 gives us: 16
The number 113 AND 8 gives us: 0
The number 113 AND 4 gives us: 0
The number 113 AND 2 gives us: 0
The number 113 AND 1 gives us: 1