#!/usr/bin/perl -w  
use strict;   
use warnings; 
use diagnostics; 
#use diagnostics; 
use IPC::Open3; 
my @changed_paths; 
my @changed_files=("//depot/perl/tools/scripts/files/data.c"); 
foreach my $file (@changed_files) 
{ 
 
  my($wtr, $rdr, $err); 
  use Symbol 'gensym'; $err = gensym; 
  my $pid = open3($wtr, $rdr, $err,'p4 where $file'); 
  print "$err\n"; #prints as GLOB(0x183f108),why is it so? 
  #waitpid( $pid, 0 ); //Why do we need this?Program never halts if th 
+is is present 
  my $child_exit_status = $? >> 8; 
     if ($err eq 'file(s) not in client view')  
      { 
          push @changed_paths,$file; 
      } 
      print @changed_paths; 
}