use warnings;
use strict;

print "Enter a decimal number, less than 256, to be converted to a binary number: ";

chomp(my $dec = <STDIN>);

printf "%08b\n", $dec;

##</code><code>##

perldoc -q convert