Re: The Perl Film Festival

[spacewarp]

Ok, this one's pushing it, I admit it:

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

It's Armageddon, get it?

*spacewarp ducks*

Spacewarp

DISCLAIMER:
Use of this advanced computing technology does not imply an endorsement
of Western industrial civilization.