in reply to How do I convert from decimal to 2's Complement

print "$_\t", dec_bin2s($_), "\n" for -42 .. 42;

sub dec_bin2s {
   $dec = shift;
   return unpack "B8", (pack "i", $dec);
}

[download]

In Section Seekers of Perl Wisdom