#!/usr/bin/perl -w
use strict;
use Mail::Box::Manager;

my $mailspool = "/var/spool/mail/jlahowet";
my $received = "/home/jlahowet/THOR/HAS/messages";

my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open(folder => $mailspool);

my $type = $folder->type;
print "$type\n";

my $name = $folder->name;
print "$name\n";

my $emails = $folder->messages;
print "$emails\n";

foreach my $message ($folder->messages) {
    print $message->get('Subject') || '<no subject>', "\n";
    $message->delete;
}

$folder->close;
 
exit;