Hello! I wrote perl script for read current quota usage, it works but when I run the program I receive a warning in Dovecot log:

2011-09-29 14:45:30 doveadm(guest@testmail.com): Warning: Timeout leak: 0x7f14800ad970

This is the script:

#!/usr/bin/perl

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

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

print "VERSION\tdoveadm-server\t1\t0\n"; print "\tguest\@testmail.com\tquota get\n"; print "=" x 20 . "\n";

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

    print $messg;

print TSOCK "VERSION\tdoveadm-server\t1\t0\n";
TSOCK->flush;

print TSOCK "\tguest\@testmail.com\tquota get\n";
TSOCK->flush;

$messg = <TSOCK>;
print $messg;

$messg = <TSOCK>;
print $messg;

close TSOCK;

}

I hope someone could help me to fix the warning. Thanks in advance, Dany