#!/usr/local/bin/perl # # $outputFile = 'IntroductionToGeant4Merged.html'; @inputFiles = ( '../html/index.html', 'break00.html', '../html/introductionToGeant4.html' ); $numberFiles = @inputFiles; for ($i=0; $i<$numberFiles; $i++) { `MergeDocs.pl $inputFiles[$i] >> $outputFile`; }