echo "Hi!" | perl -wle 'print -t() ? "" : "not ", "interactive"'