programming-examples/perl/File/The chown function changes the owner and group of a list of files.pl

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