use Net::IMAP::Simple::SSL;
use Email::MIME;

my $imap = Net::IMAP::Simple::SSL -> new ('imap.gmail.com');
$imap -> login ("LOGIN\@gmail.com" => 'PASS');
my @unseen = reverse sort $imap->search_unseen;
for my $i (@unseen) {
  my $msg = join '', @{$imap->get($i)};
  unless (fork) {
    if (&process (Email::MIME->new (\$msg)) eq "notouch") {
      $imap->unsee ($i);
      exit;
    }
  }
}