#!/usr/bin/perl
#intconv2.plx
use warnings;
use strict;
print "Please enter a normal decimal number less than 256: ", "\n";
my $dec;
$dec=<STDIN>;
my$binc1=$dec&128;

if ($binc1!=0)
{
our$bin1=1;
}
else
{
our$bin1=0;
}
print"The number in binary is: $bin1 \n";