$test = 2872989898322;
$test = 1234567890; #gekürzte Version

print "Vorher: $test\n";
$test = pack("L",$test);

print "Gepackt: $test\n";
$test = unpack("L", $test);

print "Nachher: $test\n";
exit;


Vorher: 1234567890
Gepackt: ÊxûI     (*)
Nachher: 1234567890

$test = 2872989898322;

#Packen
print "Vorher: $test\n";
while($test > 4294967295)
{
    $test = $test - 4294967295;
    push(@new,pack("L",4294967295));
}
push(@new,pack("L",$test));
print "Gepackt: @new\n";


#Entpacken
$new = unpack("L$#new", @new);
print "Nachher: $new\n";