chown para cambiar el propietario
y el grupo de un fichero o directorio:
my ($user, $group) = (1004, 100); chown $user, $group, glob "/tmp/*.c";
Utilice la función getpwnam para traducir de nombre a número
y la función getgrnam para traducir de un nombre de grupo
a su número:
defined(my $user = getpwnam "alu4713") or die "no existe alu4713"; defined(my $group = getgrnam "users") or die "no existe users"; chown $user, $group, glob "/home/alu4713/*";