>perl580\bin\perl -we"if ( $foo ) {}" -e "elsif ( length($bar) ) {}"
Name "main::bar" used only once: possible typo at -e line 2.
Name "main::foo" used only once: possible typo at -e line 1.
Use of uninitialized value in length at -e line 1.