Try this. -Nigel

#!/usr/bin/perl -w

use strict;
use Net::NNTP;

my $server = Net::NNTP->new('your.news.server')
    or die "Can't connect to news server: $@\n";

$server->postok()
    or die "Can't post to news server\n";

my @lines = (
    "From: Nigel Horne <njh\@despammed.com>\n",
    "Newsgroups: alt.test\n",
    "Subject: a test posting\n",
    "Content-Transfer-Encoding: quoted-printable\n",
    "Content-Type: text/plain; charset=ISO-8859-1;\n",
    "\n",
    "A test message\n"
);

print (@lines);

$server->post(@lines);

$server->quit();
[download]