use strict;
use warnings;

# required modules
use Net::IMAP::Simple;
use Email::Simple;
use IO::Socket::SSL;
use HTML::Strip;
use Data::Dump;

# fill in your details here
my $username = 'my_account_of_gmail@gmail.com';
my $password = $ARGV[0] || die "password as first argument!";
my $mailhost = 'pop.gmail.com';

# Connect
my $imap = Net::IMAP::Simple->new(
    $mailhost,
    port    => 993,
    use_ssl => 1,
) || die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n";

my $hs = HTML::Strip->new();

# Log in
if ( !$imap->login( $username, $password ) ) {
    print STDERR "Login failed: " . $imap->errstr . "\n";
    exit(64);
}
# Look in the the INBOX
my $nm = $imap->select('INBOX');

# How many messages are there?
my ($unseen, $recent, $num_messages) = $imap->status();
print "unseen: $unseen, recent: $recent, total: $num_messages\n\n";


## Iterate through unseen messages
for ( my $i = 1 ; $i <= $nm ; $i++ ) {
    #last if $i == 2;
    if ( $imap->seen($i) ) {
        next;
    }
    else {
    my $es = Email::Simple->new( join '', @{ $imap->get($i) } );


    printf( "[%03d] %s\n", $i, $es->header('From'), $es->header('Subject'));
    #print "BODY[".$es->body."]\n\n";
    print "Cc-------------->", $es->header('Cc'),"\nTo------>",$es->header('To'),"\n";
    #dd $es;
    print $hs->parse( $es->body );
    print +('=' x 70),"\n";
    }
}
# Disconnect
$imap->quit;

exit;