Select Code to Download

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

my (@eachnum, $binary, $good, $decimal);

print("\n\nEnter a binary number:");
chomp(my $binary=<STDIN>);
if ( $binary =~/\D.*/ ) { 
    print("Not a binary number!\n");exit;}

die "Not a binary number" if $binary =~ /[^01]/

convb2d($binary)

#!/usr/bin/perl -w
use strict;
...
  ( "N", pack("B32", substr("0" x 32 . $binary, -32 )));
}