$number = 1145258561; print pack( "l", $number ); # prints: ABCD