Usando o chamado de sistema lchown(2) em Perl
