Preserving Modified By and Modified Date after CLT script

System

We are currently undergoing in upgrade to TeamSite 6.7.2 and as part of it we are re-doing some of the directory structures in our branches. We have a simple Perl script that reads the EA for where the PrimaryDCR is and then appends on the new directory structure and resets the EA. That works - no problems.

The issue is that this changes the both the timestamp (Modified) and the Modified By - which we don't want to have happen for compliance reasons. Unfortunately, those attributes can only be read via the iwattrib CLT (moddate, creator) -- but you can't set them (at least not that I can tell). I don't want to set new these values as EA using iwextattr - but rather keep them as the moddate and creator.

Attached is the script I'm using.

Any perls of wisdom on this?

Thanks!

Melody