#!/usr/bin/perl -w 
use strict; 
use warnings; 

print "Enter decimal number less than 256:"; 
my $decimal; 
$decimal=<STDIN>; 
#chomp $decimal; 
print $decimal & 128 <=> 0; 
print $decimal & 64 <=> 0; 
print $decimal & 32 <=> 0; 
print $decimal & 16 <=> 0; 
print $decimal & 8 <=> 0; 
print $decimal & 4 <=> 0; 
print $decimal & 2 <=> 0; 
print $decimal & 1 <=> 0 ; 


##</code><code>##

output: 

F:\Perl\code>chap2ex3.pl 
Enter decimal number less than 256:255 
11111111 
F:\Perl\code>chap2ex3.pl 
Enter decimal number less than 256:12 
00000000 
F:\Perl\code>chap2ex3.pl 
Enter decimal number less than 256:8 
00000000