Feed::Findというモジュールに、「RSS・Atomの auto discovery」が実装されている。
use Feed::Find;
my @feeds = Feed::Find->find('http://d.hatena.ne.jp/jgoamakf/');
for my $feed_url (@feeds) {
print $feed_url, "\n";
}
% findrss.pl
http://d.hatena.ne.jp/jgoamakf/rss
http://d.hatena.ne.jp/jgoamakf/rss2