#!/usr/bin/perl --
use CGI qw(:standard);
$| = 1;
if (my $pid = fork) { #parent does
print header(), q~
New Site notification
My homepage has moved to a new location. I am here
~;
} elsif (defined $pid) { #child does
close STDOUT; #tell apache no more output
sleep 30;
} else {
die "Cannot fork: $!";
}
exit 0;