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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my $bin1 = $binc1 ? 1 : 0;

##</code><code>##

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

##</code><code>##

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