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

print "Enter decimal number less than 256:"; 
my $decimal; 
$decimal=<STDIN>; 
chomp $decimal; 
# $decimal += 0;
print (($decimal & 0x80)? (1) : (0) );	# to test the 8th bit
print (($decimal & 0x40)? (1) : (0) );	# to test the 7th bit
print (($decimal & 0x20)? (1) : (0) );	# to test the 6th bit
print (($decimal & 0x10)? (1) : (0) );	# to test the 5th bit
print (($decimal & 0x08)? (1) : (0) );	# to test the 4th bit
print (($decimal & 0x04)? (1) : (0) );	# to test the 3th bit
print (($decimal & 0x02)? (1) : (0) );	# to test the 2nd bit
print (($decimal & 0x01)? (1) : (0) );	# to test the 1st bit