use File::Find qw/ find /;

my $uid = getpwnam($uname) or die "$uname: no such user";
my $gid = getpwnam($gname) or die "$gname: no such group";

find( sub { chown $uid, $gid => $_ }, @directories );