C:\test>perl

#!/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 ;
^Z
Enter decimal number less than 256:1
11111111