$ a=foo b=bar; export a b; perl -le 'exists $ENV{a} && exists $ENV{b} ? exit 0 : exit 1' && echo 'success'
success