Select Code to Download

perl -e " print -t STDIN ? qq(STDIN has tty) : qq(NO tty associated);p
+rint ' - '; print -p STDIN ? qq(STDIN is a pipe or a named pipe) : qq
+(NOT a pipe)"

...

#out
#NO tty associated - STDIN is a pipe or anamed pipe