$ perl -e " use strict; use warnings; my $foo; if( 0 ){ $foo = 1; } else { $foo = 2; } "