--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scratch/sign	Wed Nov 09 16:50:16 2011 +0100
@@ -0,0 +1,12 @@
+#! /usr/bin/perl
+
+use 5.010;
+use strict;
+use warnings;
+
+use lib "lib";
+use Message::2822;
+
+my $message = Message::2822->new(file => shift);
+
+say join "\n", $message->header_content("content-type:");