#!/usr/bin/perl

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

my $username = 'USERNAME';
my $password = 'PASSWORD';

my $socket = IO::Socket::SSL->new(
             PeerAddr => 'imap.gmail.com',
             PeerPort => 993
             )
or die "socket(): $@";

my $client = Mail::IMAPClient->new(
             Socket   => $socket,
             User     => $username,
             Password => $password,
             )
or die "new(): $@";

if ($client->IsAuthenticated()) {
        my $msgct;
        $client->select("INBOX");
        # $msgct = $client->unseen_count||'-';
        # print "$msgct\n";
        my $messages = $client->messages() or die "Could not messages: $@\n";
        for my $h (values %{$client->parse_headers($messages, "Subject")})
        {
                my $subject = join("\n", map { "$_:\t$h->{$_}[0]\n"} keys %$h);
                if (length($subject) > 45) {
                        print substr($subject, 9, 36);
                        print "...\n"
                } else {
                        print substr($subject, 9, 36);
                }
                print $subject;
        }
} else {
        die "Authentication failed: $@";
}
$client->logout();