if (-t STDIN) {}
print -t;
$x->-t;