Service is running as a member of Domain Admins, this is definitely a perl service issue.

I have tried a cut down version of the script on my workstation, an if(open) still succeeds even when the directories are renamed.