$number = 1145258561;
print pack( "l", $number ), "\n";
do {
	print chr($number % 0x100);
	$number = $number >> 8;
} until (!$number);