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