#!/usr/bin/perl -w
print "Input number: ";
my $num = <>;
my $len = (length(sprintf("%b", $num)) + 7) & ~7;
printf "\nBinary: %0${len}b\n", $num;