#!/usr/bin/perl 
use strict;

use CGI;
my $q = new CGI;
my $id = $q->param('ID');

use FTP::News::Display;
my $news = FTP::News::Display->new({
		DBD => 'DBI:mysql:NEWS:localhost:3306',
		DBUSER => 'root', DBPASS => 'funkd00bie',
		SITE => 1 });
print "content-type: text/html\n\n";
   print $news->item({ ITEM => $id });