foreach my $file (@changed_files) 
	{ 
	 
my $p4where_output=`my $p4where_output=`p4 where $file > NUL: 2>&1`; 
		print "P4 where output:$p4where_output\n"; 
		if($p4where_output eq 'file(s) not in client view')#this is failing because "file(s) not in client view is not getting saved to $p4where_output 
		{ 
		push @changed_paths,"$file\n"; 
		} 
	}

#!/usr/bin/perl -w  
use strict;   
use warnings; 
use diagnostics; 
use Data::Dumper; 
use Storable;  
use Getopt::Std; 
use File::Glob (); 
use Cwd; 
#use diagnostics; 
use IPC::Open3; 
my @changed_paths; 
my @changed_files=("//perl/tools/files/data.c"); 
foreach my $file (@changed_files) 
{ 
		$file =~ s/#\d+$//; 
		print "FILE:$file\n"; 
	    #my $p4where_output=`p4 where $file > NUL: 2>&1`; 
		#print "P4 where output:$p4where_output\n"; 
 
		my $cmd = "p4 where $file"; 
 
		local(*HIS_IN, *HIS_OUT, *HIS_ERR); 
 
		my $childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, p4 where $cmd); 
		print HIS_IN "stuff\n"; 
		close(HIS_IN);            # Give end of file to kid. 
		my @outlines = <HIS_OUT>;    # Read till EOF. 
		my @errlines = <HIS_ERR>;    # XXX: block potential if massive 
		print "STDOUT:\n", @outlines, "\n"; 
		print "STDERR:\n", @errlines, "\n"; 
		print @errlines; 
		close HIS_OUT; 
		close HIS_ERR; 
		waitpid($childpid, 0); 
				if ($?) { 
					print "That child exited with wait status of $?\n"; 
				} 
 
				if(@errlines eq 'file(s) not in client view') 
				{ 
				push @changed_paths,"$file\n"; 
				} 
print @changed_paths; 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use IPC::Run3; 
use Data::Dumper; 
 
my $cmd = [ qw(dir C:/bad) ]; 
my ($stdin, $stdout, $stderr); 
 
run3($cmd, \$stdin, \$stdout, \$stderr); 
 
print Dumper ($cmd, $stdin, $stdout, $stderr);

D:\perl>perl-3.pl 
$VAR1 = [ 
          'dir', 
          'C:/bad' 
        ]; 
$VAR2 = undef; 
$VAR3 = ''; 
$VAR4 = 'dir: C\\:/bad: No such file or directory 
';

use strict;  
use warnings;  
use IPC::Run3;  
use Data::Dumper;  
my @branched_paths; 
my $savefile='//depot/perl/files/scripts/file.c'; 
  
my $cmd = [ qw(p4 where $savefile) ];  
#my $cmd = [ qw(p4 where //depot/perl/files/scripts/file.c) ]; #works 
#print "CMD:$cmd\n"; 
my ($stdin, $stdout, $stderr);  
  
run3($cmd, \$stdin, \$stdout, \$stderr);  
  
print $stderr; 
#chomp($stderr); 
	if ($stderr =~ /file\(s\) not in client view/) 
		{ 
			#print "in"; 
			push @branched_paths,"$savefile"; 
		} 
 
print @branched_paths;