Select Code to Download

#!/usr/bin/perl
use warnings;
...
$bits[1] = ($dec & 2) <=> 0;
$bits[0] = ($dec & 1) <=> 0;
printf "The entered decimal number in binary is : %s\n", join '', reve
+rse @bits;

...
my @bits;

$bits[$_] = ($dec & 2 ** $_) <=> 0 for 0 .. 7;
printf "The entered decimal number in binary is : %s\n", join '', reve
+rse @bits;

...
my @bits;
...
}

printf "The entered decimal number in binary is : %s\n", join '', reve
+rse @bits;