#!/usr/bin/perl 
use warnings;
use strict;

use LWP::Simple;

my $url = "http://rpc.bloglines.com/update?user=my\@address.com&ver=1";

getprint($url);

my $unread_count = get($url);
print "\nUnread string: $unread_count\n" if defined $unread_count;