$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