sub runReports {
   print "Generating Reports for $script_to_call\n";
   my $exit_val = system($script_to_call);
   if   ( $exit_val ) {
      print "<p>System call failed with an exit value $exit_val\n";
      print "<p>Let's see what a backtic exec shows us\n";
      print '<pre>', `$script_to_call`, '</pre>';
  } else { 
      print "<p>Look for reports in /home/donfox/BioDataProject/kim/Reports";
  }
}