use warnings; use strict; foreach my $ext ('a' .. 'zzz') { my $fn = 'x.'.$ext; open my $fh, '>', $fn or die "$fn $!"; close $fh; printf STDERR "%-15s %d\n", $fn, -x $fn if -x $fn; unlink $fn; } __END__ x.bat 1 x.cmd 1 x.com 1 x.exe 1