#!/usr/bin/perl -w
use strict;

use File::Find::Rule;
my %uid;
my %vm_data;

print("Killing $_\n"), kill 15, $_
    for map /(\d+)/,
    File::Find::Rule
        ->file
        ->name('status')
        ->grep(sub {
            my $fullname = $_[2];
            $uid{$fullname}++ if /^Uid:\s*33\b/;
            $vm_data{$fullname}++ if /^VmData:\s*(\d+)/ and $1 > 16384;
            return $uid{$fullname} and $vm_data{$fullname};
        })
        ->in('/proc');