perl -we "my $a = q[foo] for 1; print $a" Use of uninitialized value in print at -e line 1.