Take the easy way out: fork for each tested program. Turn your Safe+Safe::Hole script into a wrapper and just test a program once - return the value via IPC (probably just do a piped fork) and exit. Now you don't have to even worry about this problem.

Seeking Green geeks in Minnesota