perl -e'for my $x ( 1 ) { my $y = pack "I", $x; }'