Help for this page

Select Code to Download

Select or download this

#! 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 _;

Select or download this
```
2. test.bat is an executable text file
```