I connected to the Gmail IMAP server using Mail::IMAPClient.

In Mail::IMAPClient I don't see a way to just idle and wait for new messages. I'd like to assign a callback to just do something when a new message is recieved.

Is there another way to stay attached to a SMTP sever and just idle waiting for new messages? Then when a message is received, trigger an action via a callback?

#!/usr/bin/perl

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

# Connect to the IMAP server via SSL
my $socket = IO::Socket::SSL->new(
   PeerAddr => 'imap.gmail.com',
   PeerPort => 993,
  )
  or die "socket(): $@";

# Build up a client attached to the SSL socket.
# Login is automatic as usual when we provide User and Password
my $client = Mail::IMAPClient->new(
   Socket   => $socket,
   User     => 'xxx@gmail.com',
   Password => 'xxxxxx',
  )
  or die "new(): $@";

# Do something just to see that it's all ok
print "I'm authenticated\n" if $client->IsAuthenticated();
my @folders = $client->folders();
print join("\n* ", 'Folders:', @folders), "\n";


# Say bye
$client->logout();
[download]