print "\n\nEnter a binary number : ";
my $binary=<STDIN>;