perl -e"my $ERROR = sub {}  my $EEEEK = 1;"
--------------------------^