use ZCS::Admin;                                                                 
                                                                                
my $zimbra = ZCS::Admin->new(                                                   
    proxy    => 'https://host.domain.tld7071/service/admin/soap/',    
    name     => 'admin',                                                        
    password => 'password',                                                     
);                                                                              
                                                                                
die ZCS::Admin->faultinfo($zimbra) if !$zimbra;                                 
                                                                                
my $accountinfo = $zimbra->getaccount( name => "username\@domain\.tld" );    

print $accountinfo, "\n"; 

##</code><code>##

<GetAccountResponse xmlns="urn:zimbraAdmin"><account name="user@domain.tld" id="0cf5bb57-a2e8-4e3a-9c3a-ce40d13446db"><a n="zimbraPrefCalendarReminderMobile">FALSE</a><a n="zimbraPrefIMLogChats">TRUE</a><a n="zimbraDeviceLockWhenInactive">FALSE</a><a n="zimbraPrefFileSharingApplication">briefcase</a><a n="zimbraPrefCalendarWorkingHours">1:N:0800:1700,2:Y:0800:1700,3:Y:0800:1700,4:Y:0800:1700,5:Y:0800:1700,6:Y:0800:1700,7:N:0800:1700</a><a n="zimbraFeatureOutOfOfficeReplyEnabled">TRUE</a><a n="zimbraPrefCalendarViewTimeInterval">1h</a><a n="zimbraPrefComposeFormat">html</a><a n="zimbraPrefIMNotifyStatus">TRUE</a><a n="zimbraPrefLocale">nl</a><a n="zimbraQuotaWarnPercent">90</a><a n="givenName">User</a><a n="zimbraPrefIMReportIdle">TRUE</a><a n="zimbraMailHost">host.domain.tld</a><a n="zimbraFeatureMailForwardingEnabled">TRUE</a><a n="zimbraPrefSaveToSent">TRUE</a><a n="zimbraPrefDisplayExternalImages">FALSE</a><a n="zimbraPrefOutOfOfficeCacheDuration">7d</a
......
</account></GetAccountResponse>