#!/usr/local/bin/perl

print "200 ok\n";
print "content-type: text/plain\n\n";
print "Kill proc 12716\n";

$1=system("kill -9 12716");

print "Return code=$1\n";
