#!/usr/bin/perl
# @@@ THIS DOESN'T WORK @@@
require 5.001;

$|=1;

my $query = new CGI;

open (OLDOUT, ">&STDOUT") or die "Couldn't dupe STDOUT!\n";
print $query->header(-status=>'200 OK'),"\n";
close(STDOUT);

open (STDOUT,">&OLDOUT") or die "Couldn't restore STDOUT!\n";
close(OLDOUT);

sleep(20);

print "GO AWAY!;


##</code><code>##

#!/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!;