#!/usr/local/bin/perl

use News::Article;
use strict;

my $person = 'tskirvin@killfile.org';
my $id = "0x0427609D";
my $phrase = "XXXXXXXXXXX";

my $article = new News::Article(\*STDIN);
die "No article\n" unless $article;

# $article->drop_headers('x-auth');

$article->sign_pgpmoose($person, $phrase, $id);
$article->write(\*STDOUT);