#!/usr/local/cpanel/3rdparty/bin/perl
my %users = ();
opendir( PROC, "/proc" );
my @PIDS = readdir(PROC);
closedir(PROC);
foreach my $proc (@PIDS) {
    if ( $proc =~ /^\d*$/ ) {
        open( PROCC, "/proc/$proc/cmdline" );
        my $cmd = <PROCC>;
        chomp $cmd;
        close(PROCC);
        open( PROCC, "/proc/$proc/stat" );
        my $procps = <PROCC>;
        chomp $procps;
        close(PROCC);
        my $name = ( split /\s/, $procps )[1];
        my $exe  = readlink("/proc/$proc/exe");
        my $cwd  = readlink("/proc/$proc/cwd");

        if ( $cwd =~ /home\/(\w+)\// ) {
            $users{$1} += 1;
        }
        elsif ( -e "/home/$name/public_html" ) {
            $users{$1} += 1;
        }
    }
}

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