use Devel::Peek;
my $x = "128";
Dump $x;
printf("%08b\n", $x);
Dump $x;