#!/usr/bin/perl
#converter.plx
use warnings;
use strict;
print "Please input a decimal no. to convert to binary : ";
chomp (my $value = <STDIN>);
$value = unpack("B*", pack("N", $value));
print "$value";