Perl Script Needed: Trying to Change OS User in Content Store

System

Hi.

I'm still learning Perl scripting & TeamSite modules.

I need a script that will read through an entire Content Store, via a vpath, to find any file owned by specific user IDs (available from a flat text file, one user ID per line) and change ownership of that file to a specific user ID (tsmaster in this case).

I know I can write a shell script but I need a script or process that runs quickly.

I was trying to modify the InterWoven "walkArchive.pl" script but am failing miserably.
a) it reads through the content store directly (/etc/defaultiwstore/) and I need to read through the vpath (/iwmnt/)
b) I'm not sure how to lookup the specific user ID in the flat file

Any help is greatly appreciated. If there's a different/better way to so this, I'm open to that suggestion as well.

Thanks!
Bill