Select Code to Download

my $bin1;
if ($binc1 != 0) {
...
} else {
   $bin1 = 0;
}

my $bin1;
if ($binc1 == 0) {
...
} else {
   $bin1 = 1;
}

my $bin1;
if ($binc1) {
...
} else {
   $bin1 = 0;
}

my $bin1 = $binc1 ? 1 : 0;

my $bin1 = $binc1 ? '1' : '0';

print "The number in binary is: ", ($binc1 ? '1' : '0'), "\n";