my $int = 123;
my $bin = sprintf "%b", $int;
my $fix = sprintf "%08b", $int;
print "Integer $int is binary $bin (eight-digit binary: $fix)\n";