#!/usr/bin/perl
# @@@ THIS DOES @@@
require 5.001;

$|=1;

my $query = new CGI;

print $query->header(-status=>'200 OK'),"\n";
close(STDOUT);


sleep(20);

print "GO AWAY!;