Maybe you really want to use DirHandle (instead of FileHandle) since you are opening a directory.

use warnings;
use strict;
use DirHandle;

my $d = DirHandle->new('/tmp');  # <-- your directory here
if (defined $d) {
    while (defined(my $fobj = $d->read)) {
        next if $fobj eq '.' or $fobj eq '..' or $fobj eq '.profile';
        print "$fobj\n";  #  <-- chown here
    }
    undef $d;
}
[download]