$ perl -le " print 0+-t $_  for STDIN, STDOUT, STDERR " > out.txt

$ cat out.txt
1
0
1