Select Code to Download

    -t  Filehandle is opened to a tty.

#!/usr/bin/perl

...
} else {
    say "Script '$iam' is receiving input from a pipe";
}

Script 'script' called from a terminal with 3 arg(s):
   1.  arg1
   2.  arg2
   3.  arg3

Script 'script' is receiving input from a pipe

    while (<STDIN>) {
        say "Got input:  $_";
    }