Use the lchown(2) system call from Perl
