$ perl -le " use warnings; use strict; my $foo; $foo++; print $foo "
1