chomp (@files = `ls -R /`);    #Is there a better way to
                               #find all symlinks on system?
foreach $x (@files) {
   if (-l $x && -o $x) {       #How do I test for ownership 
      chown (1234, 35, $x);    #of a specific user?
      print "Changed $x\n";    #How do I print the full path?
   }
}