use strict;
use LWP::Simple;
use XML::RSS;
use CGI;
$|++;
my $cgi = new CGI;
print $cgi->header,$cgi->start_html('INFO PORTAL');
my $rss=new XML::RSS;
my $FILE="/home/foo/slashdot.rdf";
mirror("http://slashdot.org/slashdot.rdf", $FILE);
 $rss->parsefile($FILE);
    my $item;
    for $item (@{$rss->{"items"}})
    {
        print "<A HREF=\"$item->{link}\">$item->{title}</A><BR>";
   }
print "HERE NO PROBLEM!!<BR>";
print $cgi->end_html;