#!/usr/bin/perl
    use strict;
    use warnings;
    use Net::IMAP::Simple::SSL;
    use Email::Simple;

    # Create the object
    my $imap = Net::IMAP::Simple::SSL->new('SERVER.HOSTNAME.com') ||
       die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n";

    # Log on
    if(!$imap->login('USER','PASSWORD')){
        print STDERR "Login failed: " . $imap->errstr . "\n";
        exit(64);
    }

    # Print the subject's of all the messages in the INBOX
    my $nm = $imap->select('INBOX');

    for(my $i = 1; $i <= $nm; $i++){
        if($imap->seen($i)){
            print "*";
        } else {
            print " ";
        }

        my $es = Email::Simple->new(join '', @{ $imap->top($i) } );

        #print $es->as_string;
        printf("[%03d] %s\n", $i, $es->header('Subject') . " " . $es->header('from'));
        print $es->body;
    }

    $imap->quit;