PERL example of mailkit.mailinglist.adduser call

my $server_url = 'https://api.mailkit.eu/rpc.fcgi';
my $server = XML::RPC::Fast->new($server_url); 

my $cid = 123456789;                    # Your client ID as displayed in Profile/Integration
my $chash = 'place_your_hash_here';     # Your client MD5 has as displayed in Profile/Intergration
my $mid = 1234;                         # Mailing list ID
my $opt = 0;                            # Send opt-in confirmation mail (true/false)

my $result = $server->call(
    'mailkit.mailinglist.adduser',
    $cid,
    $chash,
    $mid,
    $opt,
    {
        'first_name', MIME::Base64::encode('First Name',
        'last_name', MIME::Base64::encode('Last Name',
        'email',MIME::Base64::encode('Email'),
        'status',MIME::Base64::encode('unknown'),       # Recipient status (unknown/active/temporary/permanent/unsub)
    },
    {
       'nick_name',MIME::Base64::encode('Nick Name'),
       'gender',MIME::Base64::encode('male'),           # Gender of the recipient
       'phone',MIME::Base64::encode('Phone'),
       'mobile',MIME::Base64::encode('Mobile'),
       'fax',MIME::Base64::encode('FAX'),
       'street',MIME::Base64::encode('Street'),
       'city',MIME::Base64::encode('City'),
       'state',MIME::Base64::encode('State'),
       'country',MIME::Base64::encode('Country'),
       'zip',MIME::Base64::encode('ZIP/Postal Code'),
    },
    {
       'custom1',MIME::Base64::encode('custom1'),       # Field for custom data
       'custom2',MIME::Base64::encode('custom2'),       # Field for custom data
       'custom3',MIME::Base64::encode('custom3'),       # Field for custom data
    }
);