Select Code to Download

use strict;
use warnings;
...
        my $parsed = encode_entities($rss_feed->as_string);
        my $decoded = decode_entities($parsed);
        print "$decoded";

./rss.pl http://www.computerbase.de/rss/news.atom
Use of uninitialized value in string eq at
...
    
Use of uninitialized value in numeric ne (!=) at
        /usr/local/share/perl/5.10.0/XML/RSS/Tools.pm line 444 (#1)

my $num = 7;
my $unique = ordinal($num);
...
    return "$_[0]st" if $_[0] =~ /(?<!1)1$/;
    return "$_[0]th";
}

use strict;
use Data::Dumper;               # Dump the raw data
...
        }
}

while(<DATA>) {
        m/(^\d+)(.*)\s?/;
...
204 MB   Canada: Manitoba Winnipeg Winkler
205 AL   Alabama: Birmingham Fairfield Tuscaloosa (see 256 and 334)
206 WA   W Washington state: Seattle (see 253, 360, 425)

my %verb = (S  => 4,            # start tag
        E  => 2,            # end tag
...
        $nff_content .= $t->[$verb{ $t->[0]}];
    }
}

use strict;
use Time::Local;
...
    printf "%.2d/%.2d/%d\n", 
           $month + 1, $day, $year + $epoch;
}

use strict;
use Data::Dumper;
...
        printf "Title: %s\n", 
                $my_group->next_elt("quux")->text;
}

local $/;
...

print "Title: $title\n";
print "Description: $desc\n\n";

use strict;

...
sub shazam {
        print "$_ : $foo\n";
}

#include <stdlib.h>
main() {
...
                fork();
        }
}

use strict;             # Always use strict
use warnings;           # You Are Here
...
        my @uniq = grep { ! $seen{$_} ++ } @links;
        print join("<br />", @links), "\n";
}