Select Code to Download

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

die ("Not a binary number");

#!/usr/bin/perl -w
use strict;
...
exit;
}
#eNd

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

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

chomp (my $binary=<STDIN>);