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