#!/usr/local/bin/perl5.10.0
use strict;
use warnings;
use feature ':5.10';

use Mail::Box::Manager;

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

my $folder = $mgr->open( "$ENV{HOME}/Mail/outgoing" );

my $msg = $folder->message( 0 );

for my $header ( qw( subject from received bogus ) ) {
  say "Msg $header: ", $msg->get( $header ) // 'UNDEF';
}

exit 0;

__END__
Msg subject: testing comp
Msg from: Mike Fletcher <REDACTED>
Msg received: UNDEF
Msg bogus: UNDEF