#!/usr/bin/perl -w

use CGI qw(:standard);

$| = 1;

if (my $pid = fork)
  {
    print header,start_html("start");
    print ('<META HTTP-EQUIV="Refresh" CONTENT="5; URL=/results/file1.html">');
    print h1('Starting...');
    print ('If it does not start up, click <A HREF="/results/file1.html">here</
A>');
    print end_html();
  }
else
  {
    close STDIN;
    close STDOUT;
    system ('echo \'<META HTTP-EQUIV="Refresh" CONTENT="10; URL=/results/file.html">\' > /www/html/results/file.html');
    exec '/www/cgi-bin/run.pl > /www/html/results/file.html &';
    die "couldnt exec - $!\n";
   }