#!/usr/bin/perl

use strict;
use warnings;
use Mail::IMAPClient;

my $now = time;
print "Now is $now\n";
(my $username, my $password) = ('re','dacted');
my $imap = Mail::IMAPClient->new(Server => 'localhost', 
                                             User => $username,
                                             Password => $password,
                                             Port => '143');
die "failed to instantiate $@." unless defined $imap;

my $select = $imap->select('INBOX');
my @messages = $imap->messages('INBOX');
print "All @messages\n";

sleep 15; #<---Here's where I generate fresh mail, during the sleep
$select = $imap->select('INBOX');
@messages = $imap->sentsince($now);
print "Some @messages\n";
print "Now then was $now\n";
$now = time;
print "Now now is $now\n";