Ok, much better.
I haven't used Proc::PID::File, so I can't say much about it.
However, consider the following lines in your code:

You close $OutfileH and then try to print to it if the shell script ($RunScript) fails. That will not work as Perl cannot write to a closed filehandle.

Also, assuming your Perl program is called "script.pl", the value of $LogFile would be "/Directory/logs/script.log", which is where you apparently want to redirect your shell script output. So, instead of hard-coding the log file name in the "system" command, use $LogFile.

Change the code to something like this:

Code:

open( $OutfileH, '>>', $LogFile)or die "Can't open $OutfileH: $!\n";
print $OutfileH &nicetime . ":Running script - " . $RunScript . "\n";
#Run the shell script through Perl program
system( $RunScript, ">>${LogFile} 2>&1" ) == 0 or print $OutfileH &nicetime ."Script FAILED\n";
close($OutfileH);

Finally, if you see the line containing "Running script" in your log file but nothing after it, then most likely your shell script is taking up a long time to run.

Try it out on its own first by executing the following command on the shell prompt:

Code:

/Directory/script/script.sh

You can also time it using the (surprise!) "time" command:

Code:

time /Directory/script/script.sh

See if the shell script's the bottleneck.