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