my $command = "net start";my $results = `$command`;my @process_list=("Interwoven Event Subsystem","Interwoven OpenDeploy 61 Service", "Interwoven OpenDeploy UI Admin","Interwoven Proxy", "Interwoven Servlet Engine", "Interwoven TeamSite","Interwoven TeamSite Search", "Interwoven TeamSite Index","Interwoven Teamsite Utility Daemon", "Interwoven Web Daemon"); my $out="";foreach my $process (@process_list) { if ( !($results =~ m|\Q$process|)) { $out .= " ".$process.","; } }print "These processes are not running: $out\n";