#!/usr/bin/perl
use strict;
use warnings;

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

sub num2bin($)
{ unpack("B*",pack("N",shift)); }

my $bin=num2bin(22);
print $bin."->".bin2num($bin)."\n";