Project 4 - XML::RSS

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use XML::RSS;
use CGI;
my $cgi = CGI->new;
my $url = "http://feeds.feedburner.com/firehouse";
#my $url = "feeds.feedburner.com/nixiepixel";
my ($content,$stuff);
my $rss = XML::RSS->new;
$content = get($url);
$rss->parse($content);
print $cgi->header,
$cgi->start_html();
sub do_html {
        my $res = shift;
#       print <<"HTML";
#       HTML
        foreach my $item (@{$rss->{'items'}}) {
                print qq{<a href="$item->{'link'}">$item->{'title'}</a><br>\n$item->{'description'}};
                }
        if ($rss->{'channel'}->{'copyright'}) {
#               print <<"HTML";
                }
#       HTML
        print $stuff;
        print "<p>$rss->{'channel'}->{'copyright'}</p>";
#       HTML
        if ($rss->{'image'}->{'link'}) {
#               print <<"HTML";
                <p><a href="$rss->{'image'}->{'link'}"><img src="$rss->{'image'}->{'url'}" alt="$rss->{'image'}->{'title'}" border="0"
#               HTML
                print qq{ width="$rss->{'image'}->{'width'}"}
                if $rss->{'image'}->{'width'};
                print qq{ height="$rss->{'image'}->{'height'}"}
                if $rss->{'image'}->{'height'};
                print "></a></center><p>\n";
                }
"proj4.pl" 46L, 1119C                                                               19,1          Top