sub dec2bin {

my $zahl = unpack("B32", pack("N", $_[0]));

$zahl =~ s/^0+(\d+)/$1/;

return $zahl;

}