for (my $i = 1; $i <= $tmessages; $i++) {
                if (!$imap->seen($i)) {
                        $nmessages++;
                }
        }

##</code><code>##

use IO::Socket::SSL;
use Mail::IMAPClient;

$socket = new IO::Socket::SSL("my.mailserver:imaps");

$imap = Mail::IMAPClient->new(Socket   => $socket,
                              User     => $user,
                              Password => $pass,)

or die "Couldn't connect to IMAP server $host as $user: $@\n";

if (!$imap->login) {
        die "Couldn't authenticate: $@\n";
}