#!/usr/bin/env perl
# How to get only the first header
use Mail::Box::Mbox;

my $mbox = Mail::Box::Mbox->new(folder => 'blank-parts.mbox');

my $msg = $mbox->message(0);
$msg->printStructure;
