dbus-send --session --dest=org.gnome.feed.Reader /org/gnome/feed/Reader org.gnome.feed.Reader.Subscribe string:$URL

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use XML::Parser;
use Net::DBus;

sub start_handler {
    my ($expat, $elem, %attr) = @_;
    return unless $elem =~ /link/ && exists $attr{rel};
    if ($attr{rel} eq 'self' || $attr{rel} eq 'start')
    {
        register_feed($attr{href});
        exit 0;
    }
}

my $xp = new XML::Parser(Handlers => {Start => \&start_handler});

$xp->parsefile($ARGV[0]);

exit 1;

sub register_feed {
    my $url = shift;

    my $bus = Net::DBus->session;
    my $service = $bus->get_service('org.gnome.feed.Reader');
    my $liferea = $service->get_object('/org/gnome/feed/Reader',
                                       'org.gnome.feed.Reader');
    $liferea->Subscribe($url);
}