use strict;
use warnings;

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

foreach my $m (<$fh>) {
    chomp($m);

    print "\nProcessing \"$m\" .. \n";

    my $path = `/vobs/package134/inttools/modules/unixtools/srce/whichPath $m`;

    chomp($path);

    $path .= '/confm/post_REFERENCED_to_EXPERIMENTAL';

    print "\tChecking for link \"$path\"\n";

    print "YES, Link is present" if(-l $path);
}