$ perl -le " print 0+-t $_  for STDIN, STDOUT, STDERR "  < NUL  2> NUL
0
1
0