bin2num($)
{
  my $bin=shift;
  # gültige 32 Bit Zahl daraus machen.
  $bin=( '0'x( 32-length $bin ) ).$bin;
  return unpack("L", pack("B*",$bin));
}