#!/usr/bin/perl

print "Content-type: text/plain\n\n";

`ps auxww | egrep [m]ember.cgi | awk '{print $2}' | while read PID; do kill -9 $PID; done`;

print "done\n";
exit;