title: how to call multiple perl script from one perl script and generate the output?
body: <p>I have written a multiple script that returns the output in xml. i have xsl file that will print out a nice table from xml for each script. however i need to write a script in which i call all those multiple scripts and create one output.?</p>
  
  <p>Can this be done? if so can someone please give me an example of how this can be done.</p>
  
  <pre><code>  #Example Script 1
  
  use strict;
  use warnings;
  use Data::Dumper;
  use XML::Simple;
  use Getopt::Long;
  
  my $output = '';
  my $debug = 0;
  my $path;
  GetOptions('path=s' =&gt; \$path,'output=s' =&gt; \$output, 'debug=i' =&gt; \$d
  +ebug);
  
  if($output eq ''){
      die ("parameter --output=s is missing");
  }     
  open my $xmloutput, "&gt;", $outputFile or die "can not open $outputFile 
  +";
   print $xmloutput "&lt;?xml version=\"1.0\" encoding=\"UTF-8\"?&gt;\n&lt;?xml-s
  +tylesheet type=\"text/xsl\" href=\"book.xsl\"?&gt;\n&lt;Books&gt;\n";
  
  my $parser = new XML::Simple;
  my $data = $parser-&gt;XMLin("$path");
  print $xmloutput " &lt;bookDetails&gt; \n";
  print $xmloutput "  &lt;bookName&gt;$data&lt;/bookName&gt; \n";
  print $xmloutput " &lt;/bookDetails&gt; \n";
  print $xmloutput " &lt;/Books&gt; \n";
  close $xmloutput;
  </code></pre>
  
  <p>Example 2</p>
  
  <pre><code>EXAMPLE 2
  use strict;
  use warnings;
  use Data::Dumper;
  use XML::Simple;
  use Getopt::Long;
  
  my $output = '';
  my $debug = 0;
  my $path;
  GetOptions('path=s' =&gt; \$path,'output=s' =&gt; \$output, 'debug=i' =&gt; \$d
  +ebug);
  
  if($output eq ''){
      die ("parameter --output=s is missing");
  }     
  open my $xmloutput, "&gt;", $outputFile or die "can not open $outputFile 
  +";
   print $xmloutput "&lt;?xml version=\"1.0\" encoding=\"UTF-8\"?&gt;\n&lt;?xml-s
  +tylesheet type=\"text/xsl\" href=\"Piano.xsl\"?&gt;\n&lt;Piano&gt;\n";
  
  my $parser = new XML::Simple;
  my $data = $parser-&gt;XMLin("$path");
  print $xmloutput " &lt;PianoDetails&gt; \n";
  print $xmloutput "  &lt;PianoName&gt;$data&lt;/PianoName&gt; \n";
  print $xmloutput " &lt;/PianoDetails&gt; \n";
  print $xmloutput " &lt;/Piano&gt; \n";
  close $xmloutput;
  </code></pre>