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

##</code><code>##

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