#!/usr/bin/perl -w

use File::stat;
($#ARGV == 0) or die "Podaj katalog: \n";
(-d $ARGV[0]) or die "To nie jest katalog! \n";

        opendir($dh, $ARGV[0]);
        @zawartosc = readdir $dh;
        closedir($dh);

        foreach $plik (@zawartosc)
        {
                my $info    = (stat($plik))[2];
        #       my $Mode = $info->mode;
                $Mode = $Mode & 0777;
                if($plik =~ m/[A-Z]+/ && -d -X $plik && ($Mode & 050) == 050) {
                        print $plik . "\n";
                }
        }