perl -e 'print "foo\n" if exists $ENV{_};'