Please be careful on Win32. I found out that testing for -T _ and -x _ may give erroneous result, depending on the order of tests. I believe this to be a bug in the Win32 Perl.

Here is a simple script to illustrate the problem:

#! perl -w
use strict;
my $file = 'test.bat';
print "1. $file is a text file, executable\n" if -T $file && -x _;
print "2. $file is an executable text file\n" if -x $file && -T _;
[download]

Create a simple file named test.bat and run above script. It prints only this - not what I would expect

2. test.bat is an executable text file
[download]

See also this node and the replies: Problem with filetest -x _ on Win2k AS Perl build 626.

Rudif