--- a/scratch/sign	Wed Nov 09 16:50:16 2011 +0100
+++ b/scratch/sign	Thu Nov 10 13:54:01 2011 +0100
@@ -7,6 +7,13 @@
 use lib "lib";
 use Message::2822;
 
-my $message = Message::2822->new(file => shift);
+my $message = Message::2822->new(file => shift//"ex/mails/unsigned");
+
+say $message->header_content("received:");
+say $message->header_content("to:");
 
-say join "\n", $message->header_content("content-type:");
+say $message->orig_header();
+say $message->orig_body();
+
+#say map { ">> '$_'\n" } $message->header_fields();
+