#!/usr/bin/perl
#converter.plx
use warnings;
use strict;
print "Please input a decimal no. to convert to binary : ";
chomp (my $value = <STDIN>);
print "$value & 1",  "$Value & 2",  "$value & 4";
print "$value & 8",  "$value & 16", "$value & 32";
print "$value & 64", "$value & 128\n";