Someone

#!/usr/bin/perl

use strict;
use Socket;
use IO::Handle;

socket(TSOCK, PF_UNIX, SOCK_STREAM,0);
connect(TSOCK, sockaddr_un("/opt/dovecot/var/run/doveadm-server")) or print("ERROR!");

if (defined(my $messg = <TSOCK>)) {

        print $messg;
print TSOCK "VERSION\tdoveadm-server\t1\t0\n";

        TSOCK->flush;
        print TSOCK "\tuser\@example.com\tquota get\n";
        TSOCK->flush;

        $messg = <TSOCK>;
        print $messg;

        $messg = <TSOCK>;
        print $messg;
}