#!/usr/bin/perl --
use strict;
use warnings;

my $nobody = 4294967294;
print $nobody . "\n";

$nobody = pack 'I', -2;
$nobody = unpack 'I', $nobody;
print $nobody . "\n";