thanks! even more useful is the reconnect method I totally missed from the module documentation.

As the module Carp::cluck on error issuing imap commands, then the $imap->noop seems to be a sane command to try.

The following code acts as expected and reconnect to the imap server:

while (1){
    my $attempts = 1;
    my $max_attempts = 10;
    while ( !$imap->noop ){
        print "Reconection retry $attempts..\n";
        $imap->reconnect;
        if( $imap->IsConnected() ){
            print "Reconnected succesfully!\n";
            last;
        }
        else{
            sleep 1;
            die "Impossible to reconnect: $@" if $attempts == $max_att
+empts;
            $attempts++;            
        }
    }
    print "IMAP connected\n" if $imap->IsConnected();
}
[download]

L*

PS January 31: see the definitive program