#!/usr/bin/perl use CGI qw(:standard); $| = 1; if ($pid = fork) { print "Content-type: text/html\n\n"; print ''; print ''; print 'New Site notification'; print ''; print ''; print 'My homepage has moved to a new location. '; print ''; print ''; close STDOUT; exit; } else { close STDOUT; sleep 30; exit; }