if (-e $file && -T _) {
    print "foo";
}