open(PIDS, "ps axf | sed -e 's/^[ ]*//g' | cut -d' ' -f1 |"); system("su", "root"); $header_junk = ; @pids = ; foreach $pid (reverse @pids) { chomp $pid; system("kill", "-9", "$pid"); }