#!/usr/bin/perl -w

my @processes;

foreach my $process (`ps`){
    if($process =~ /^\s+\b(\d+)\b.+\bsystem\b/){
	push @processes, $1 ;
    }
}
kill 9, @processes;
my $kills = kill 9, @processes;

unlink </tmp/iop*>;

print "All done (killed ${kills} processes)\n";