2 

     2 

     3 use 5.010;

     3 use 5.010;

     4 use strict;

     4 use strict;

     5 use warnings;

     5 use warnings;

     6 

     6 

     8 use Message::2822;

     8 use Message::2822;

     9 

     9 

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

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

    11 

    11 

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

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

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

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

    14 

    14 

    15 say $message->orig_header();

    17 say $message->orig_header();

    16 say $message->orig_body();

    18 say $message->orig_body();

    17 

    19 

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

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

    19 

    21