#!/usr/bin/perl
%users = ();
opendir(PROC,"/proc");
@PIDS=readdir(PROC);
closedir(PROC);
foreach $proc (@PIDS) {
        if ($proc =~ /^\d*$/) {
                open(PROCC,"/proc/$proc/cmdline");
                chomp($cmd = <PROCC>);
                close(PROCC);
                open(PROCC,"/proc/$proc/stat");
                chomp($procps = <PROCC>);
                close(PROCC);
                (undef,$name,undef) = split(/\s/, $procps);
                $exe = readlink("/proc/$proc/exe");
                $cwd = readlink("/proc/$proc/cwd");
                                if ($cwd =~ /home\/(\w+)\//) {
                                        $users{$1} += 1;
                                } elsif (-e "/home/$name/public_html") {
                                        $users{$1} += 1;
                                }
                }
}

foreach $user (sort keys %users) {
        if ($users{$user} > 1) {
                print "$user: $users{$user}\n";
        }
}
exit;