sub dec2bin8 {
    my $binary = unpack "B8", pack "C", shift(@_);
    $binary =~ s/^0+(?=\d)//;   # otherwise you'll get leading zeros
    return $binary;
}
[download]