use File::stat;
my $st = stat "foo";
print "file is executable" if $st->mode & 0111;