$ perl -E 'say -t STDIN ? "interactive":"non-interactive"'
interactive