#!/usr/bin/perl             
#dectobin3.pl               
use warnings;
use strict;
   
print "Enter a decimal number, less than 256, to be converted to a binary number: ";
   
chomp(my $dec = <STDIN>);
my @bits = map { ($dec & 1<<$_)  <=> 0 } reverse 0 .. 7;
print "Bits=",join("", @bits), "\n";