#!/usr/bin/perl

use strict;
use warnings;

use Net::IMAP::Client;

my $imap = Net::IMAP::Client->new(
        server => 'imap.gmail.com',
        user => 'foo@example.com',
        pass => 'foobar',
        ssl => 1,
        ssl_ca_path => '/etc/ssl/certs/',
        port => 993,
) or die "Can't connect to imap.gmail.com.";

$imap->login or die "Can't login to imap.gmail.com. " . $imap->last_error;
$imap->select('INBOX');

my $msg = $imap->search({from => 'info@point.gmo.jp'});
print scalar(@$msg) . " messages.\n";

$imap->delete_message($msg) or die "Failed to delete messages. " . $imap->last_error;
$imap->expunge() or die "Failed to expunge messages. " . $imap->last_error;

$imap->logout;