#!/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) <=> 0); 
print (($decimal & 0x40) <=> 0); 
print (($decimal & 0x20) <=> 0); 
print (($decimal & 0x10) <=> 0); 
print (($decimal & 0x08) <=> 0); 
print (($decimal & 0x04) <=> 0); 
print (($decimal & 0x02) <=> 0); 
print (($decimal & 0x01) <=> 0);