perl -le 'warn "stdout is NOT being redirected/piped" if(-t STDOUT); print "foo"'

##</code><code>##

   perl ... | grep o

##</code><code>##

  perl ... > foo.txt