#!/usr/bin/perl -w

print "Input number: ";
$num = <>;
chomp $num;

$array[0] = $num % 2;
while ($num > 1) {
   $num = int $num / 2;
   push(@array, $num % 2);
}

@array = reverse @array;
my $n = 1;
while (scalar(@array) > (8 * $n)) {
   $n++;
}

my $num = (8 * $n) - scalar(@array);
unshift (@array, 0 x $num);

print "\nBinary: ";
foreach(@array) {
print;
}
print "\n\n";
$totalbits = scalar(@array) + 1;
print "$totalbits\n";