--- a/Build.PL	Thu Nov 10 16:17:49 2011 +0100
+++ b/Build.PL	Thu Nov 10 16:18:38 2011 +0100
@@ -5,4 +5,10 @@
 Module::Build->new(
     dist_name => "GPGate",
     dist_version => "0",
+    requires => {
+	"perl" => "5.10.0",
+    },
+    build_requires => {
+	"Test::More" => "0.92",
+    },
 )->create_build_script();

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/Message/.perltidyrc	Thu Nov 10 16:18:38 2011 +0100
@@ -0,0 +1,2 @@
+--paren-tightness=2
+--square-bracket-tightness=2

--- 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();