use Cwd qw(chdir);

open(LS, "/home/raghvens/52xxmodulelist.txt") or die $!;

@modlist = <LS>;
@mpath = " ";
foreach $m (@modlist)
{
   
   print "\nProcessing $m .. \n";

   $mpath = `/vobs/package134/inttools/modules/unixtools/srce/whichPath $m`;
   print "\nModule Path is $mpath \n";

   chomp($mpath);
   $path = `chdir $mpath`; # or die "Can't cd into module path:$mpath \n";
   
   print "\nCurrent Path is $path";

   if(! chdir($mpath)){
	print "\n cannot change the working directory \n";
	}

   `chdir confm`;

   $file = "post_REFERENCED_to_EXPERIMENTAL";
   @output = system ("ls -l $file");
   print "YES, Link is present" if $_ =~ /\-\>/ ; 
}

##</code><code>##

Processing atp
 ..

Module Path is /vobs/package183/psappat/modules/atp


post_REFERENCED_to_EXPERIMENTAL: No such file or directory
Current Path is
Processing atpctm
 ..

Module Path is /vobs/package183/psappat/modules/atpctm


post_REFERENCED_to_EXPERIMENTAL: No such file or directory