my $buildCMD = "$sshCMD \"perl $VM_HOME/genMakeFiles.pl " . "-u $ST_USER " . "-p $ST_PASSWORD " . "-v $ST_VIEW " . "-l $ST_LABEL\""; print "-I- $buildCMD"; my $counter = 1; open (CMD, "$buildCMD | ") or die "\n-E- system '$buildCMD' failed: ($?) ($!)"; while () { print "$_\n"; sleep 1; $counter++; if ($counter < 180) { print "\n\n-E- Failed to generate MAKE file ¡V Exiting. \n"; exit 1; } }