#Format#chown(LIST);#chown LIST;$ uid=9496;$ gid=40;$number=chown($uid, $gid, 'foo.p', 'boo.p');print "The number of files changed is $number\.n";