use Lchown;

lchown $uid, $gid, @linknames or 
   die "Can't 'lchown($uid, $gid, @linknames)': $!";