[Dovecot] Timeout leak in get quota

[Danilo]

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(gu...@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