my $orig = 256000000;
my $temp = pack('L', $orig); 
my $result = unpack('L', $temp);

##</code><code>##

my $orig = 256000000000;
my $temp = pack('L', $orig); 
my $result = unpack('L', $temp);