File Perl

#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";