If all you have is perl4, you might as well use a shell one-liner. Something like the following ought to do:

    find / -type l -user "olduser" -exec chown "newuser:newgroup" {} \
+;
[download]

Abigail