#! /usr/bin/perl

use 5.010;
use strict;
use warnings;

use blib;
use Message::2822;

my $message = Message::2822->new(file => shift//"ex/mails/unsigned");

say $message->header_content("received:");
say $message->header_content("to:");

exit;

say $message->orig_header();
say $message->orig_body();

#say map { ">> '$_'\n" } $message->header_fields();

