#!/usr/local/bin/perl

use News::Article;
use strict;

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

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

$article->sign_pgpmoose($person, $phrase, $id);
$article->rename_header('x-auth', 'x-signature');

$article->write(\*STDOUT);