use SVN::Client;

    my $svn = new SVN::Client();
    $svn->propset("acl:joe", "rw", $target, 0, 0);

    # Where $target is the local (checked out) copy