#!/usr/local/bin/perl -w

use News::NNTPClient;

$c = new News::NNTPClient;


if ($c->postok()) {
    $c->post("Newsgroups: test",
             "Subject: test",
             "From: test\@test.org",
             "",
             "This is only a test");
}
__END__