Hello guys i come to seek more knowledge of perl. I have created a simple process restart script for an application that sometimes fails. The application restarts it self at some point of the day and a special shell script has the new PID (bpps.sh.pid). I am trying to cat or look for the new PID from (bpps.sh.pid)then pass that output to the $PS variable in my sub routine so it can pin point the process and stop and restart it. I am also trying to execute 2 shell scripts by calling them with the exec() function, but that doesn't seem to work also. Can someone please assist me This is the script i created:

#!/usr/bin/perl -w

$PID=`cat /export/home/weblogic/bai/bpps.sh.pid`;

print "Checking\n";
check_for_bpps();

sub check_for_bpps {
$PS=`ps -eaf | grep $PID`;
    if ($PS =~ /bpps/) {
        print "output from ps is: $PS\n";
    }
    else {
        print "Stopping process and restarting process\n";
        exec(`sh -c /export/home/weblogic/bai/bpps.sh stop;sh -c /expo
+rt/home/weblogic/bai/bpps.sh start 2 > /dev/null 2>&1`);
    }
}
[download]

And this is the output i receive from it:

Checking
Stopping process and restarting process
/export/home/weblogic/bai/bpps.sh: //.profile: No such file or directo
+ry
sh: usage:: not found
[download]

Thanks in advance.