##

    #!/usr/bin/perl

    use LWP::UserAgent;

    $ua = new LWP::UserAgent;
    $ua->cookie_jar({ file => "$ENV{HOME}/.mailmanrc" });

    $res = $ua->post('http://mydomain.com/mailman/admin/test1_mydomain.com/members/list',
        Content_Type => 'form-data',
        Content => [
            'test2%40mydomain.com_notmetoo' => 'on',
            setmemberopts_btn => 'Submit Your Changes'
        ]
    );
    if ($res->is_success) {
        print $res->decoded_content;
        print "Changed user setting...I hope!\n";
    }
    else {
        die $res->status_line;
    }

##

##

    $res = $ua->post('http://mydomain.com/mailman/admin/test1_mydomain.com/members/list',
        Content_Type => 'form-data',
        Content => [
                findmember => 'Test2',
                findmember_btn => 'Search...'
        ]
    );