#!/usr/bin/perl 
use warnings;
use strict;
$|++;
# running in Apache 1.3.34
print "Content-Type: text/html\n\n";
print "OK";
fork();
close STDOUT;
qx/ some_cmd /;