@eachnum = split (//, $binary);


##</code><code>##

print("Not a binary number!\n");exit;}


##</code><code>##

die ("Not a binary number");


##</code><code>##

#!/usr/bin/perl -w
use strict;

print "\n\nEnter a binary number : ";
my $binary=<STDIN>;
chomp ($binary);
die ("not binary") if $binary =~/[^01]/;
&convb2d ($binary);

sub convb2d {
    my $num2conv = shift;
    my $decimal = unpack
( "N", pack("B32", substr( $num2conv, -32 )));
print ("Decimal: $decimal\n");
exit;
}
#eNd


##</code><code>##

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


##</code><code>##

chomp ($binary);
die ("not binary") if $binary =~/[^01]/;
&convb2d ($binary);


##</code><code>##

chomp (my $binary=<STDIN>);