$cnt = chown $uid, $gid, 'foo', 'bar';

chown $uid, $gid, @filenames;

sub chown_by_name {
	local($user, $pattern) = @_;
	chown((getpwnam($user))[2,3], <${pattern}>);
}

&chown_by_name("fred", "*.c");
