For future reference, you can make scripts like this more portable if you use the File::Find Perl module. If you do that, I can use perl2exe and post a Windows binary for everybody.