=**************************************
    = Name: user_files.pl
    = Description:This code will parse the /
    =     etc/passwd file finding all of the users
    =     on the system. Once known a file will be
    =     created for each username, then populate
    =     d with all of the files they own on the 
    =     system.
    = By: PSN
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=775&lngWId=6    =for details.    =**************************************
    
    #!/usr/bin/perl 
    $passwdFile = "/etc/passwd";
    open PF, "<$passwdFile" or die "Can't open $passwdFile : $!";
    @lusers = <PF>;
    close PF;
    foreach (@lusers) {
    chomp($_);
    ($username, $pass, $uid, $gid, $ucomment, $home_dir, $ushell) =
    split(/:/, $_);
    qx!find / -user $username > $username!;
    next;
    }