High-speed recursive permission changer v3

#!/usr/bin/perl

# High speed recursive permission changer

$pwd = `pwd`;
$pwd = s/ /\\ /g;

$dmode = @ARGV[0];
$fmode = @ARGV[1];
$user = @ARGV[2];
$group = @ARGV[3];
$verbose = @ARGV[4];

if (!$fmode || !$dmode) {
    print "Usage: perms.pl dirmode filemode [user] [group] [-v]\n";
    exit();
}

$files = `find $pwd`;
@files = split("\n",$files);

$i = 0;
$j = 0;

if ($user && $group) {
    ($login,$pass,$uid,$gid) = getpwnam($user);
    my $username = getpwuid( $< );
    if ($username ne "root") {
        die("Changing owner:group requires root.");
    }

    $gid   = getgrnam($group);

    if (!$uid) {
        print "User \"".$user."\" does not exist!\n";
        exit();
    }
    if (!$gid) {
        print "Group \"".$group."\" does not exist!\n";
        exit();
    }
} else {
    $verbose = @ARGV[2];
}

foreach $file (@files) {
    if (-d $file) {
        if ($verbose) {
            print "Setting permissions (".$dmode.", ".$uid.":".$gid.") on $file...\n";
        }
        chmod oct($dmode), $file;
        if ($uid && $gid) {
            chown $uid, $gid, $file;
        }
    }
    else {
        if ($verbose) {
            print "Setting permissions (".$fmode.", ".$gid.":".$uid.") on $file...\n";
        }
        chmod oct($fmode), $file;
        if ($uid && $gid) {
            chown $uid, $gid, $file;
        }
    }
    if (!$verbose) {
        $i++;
        print "Set permissions on ".$i." objects...";
        print "\r";
    }
}

if (!$verbose) {
    print "\n";
}