perl -E '$var = 1; say "defined" if defined($var);'