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