I wrote a small script to publish an rss document using XML::RSS. I used some of the code from the cpan documentation to write my script. It works great except this one little problem I am having. When my xml file gets to 15 items it does not remove the oldest and insert a new entry. Thanks in advance!

    $rss->parsefile($rss_output);
    pop(@{$rss->{'items'}}) if (@{$rss->{'items'}} == 15);
    $rss->add_item(title => $title,
        link  => $rss_link,
        description => $desc,
        mode  => 'insert'
        );
[download]