Select Code to Download

while (1){
    my $attempts = 1;
...
    }
    print "IMAP connected\n" if $imap->IsConnected();
}