ken@titan ~/tmp
$ perl -E 'my $input = "none"; $input = <STDIN> if defined fileno(STDIN); say $input'
qwerty
qwerty


ken@titan ~/tmp
$ perl -E 'my $input = "none"; close STDIN; $input = <STDIN> if defined fileno(STDIN); say $input'
none

ken@titan ~/tmp