my $buildCMD = "$sshCMD \"perl $VM_HOME/X.pl " . "-u $ST_USER " . "-p $ST_PASSWORD " . "-v $ST_VIEW " . "-l $ST_LABEL\""; print "-I- $buildCMD"; open (CMD, "$buildCMD | ") or die "\n-E- system '$buildCMD' failed: ($?) ($!)"; while () { print "$_\n"; sleep 1; $counter++; if ($counter < 18) { print "\n-E- TimeOut.\n"; exit 1; } }