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