use File::Finder;
my $uid = getpwnam "user";
chown $uid, -1, File::Finder->in("path");