#!/usr/bin/perl -w

use strict;

my $pid;

my $getSite = "/www/cgi-bin/getSite.pl";
my $createCSV = "/www/cgi-bin/createCSV.pl";
my $createXML = "/www/cgi-bin/csv2xml";
my $siteCSV = "/www/cgi-bin/site.CSV";
my $siteXML = "/www/cgi-bin/site.XML";

unless ($pid = fork) {
  unless (fork) {
    exec "$getSite";
      die "Couldn't run getSite.pl";
    exit 0;
  }
  exit 0;
}
waitpid($pid,0);



unless ($pid = fork) {
  unless (fork) {
    exec "$createCSV";
      die "Couldn't run createCSV.pl";
    exit 0;
  }
  exit 0;
}
waitpid($pid,0);



unless ($pid = fork) {
  unless (fork) {
    exec "$createXML $siteCSV $siteXML";
      die "Couldn't run create XML File";
    exit 0;
  }
  exit 0;
}
waitpid($pid,0);