#!perl -w

use strict;

my $exe = '../perl.exe';
stat($exe);
printf "BAD $exe text=%d, executable=%d\n", -T _, -x _;
stat($exe);
printf "OK  $exe executable=%d, text=%d\n", -x _, -T _;
stat($exe);
printf "OK  $exe text=%d, executable=%d\n", -T _, -x $exe;

__END__

BAD ../perl.exe text=0, executable=0
OK  ../perl.exe executable=1, text=0
OK  ../perl.exe text=0, executable=1