--- a/scratch/sign	Thu Nov 10 16:17:49 2011 +0100
+++ b/scratch/sign	Thu Nov 10 16:18:38 2011 +0100
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-use lib "lib";
+use blib;
 use Message::2822;
 
 my $message = Message::2822->new(file => shift//"ex/mails/unsigned");
@@ -12,6 +12,8 @@
 say $message->header_content("received:");
 say $message->header_content("to:");
 
+exit;
+
 say $message->orig_header();
 say $message->orig_body();