view release on metacpan or  search on metacpan

eg/track.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use AnyEvent::FriendFeed::Realtime;

my($user, $remote_key, $request) = @ARGV;
my $done = AnyEvent->condvar;

binmode STDOUT, ":utf8";

my $client = AnyEvent::FriendFeed::Realtime->new(
    username   => $user,
    remote_key => $remote_key,
    request    => $request || "/feed/home",
    on_entry   => sub {
        my $entry = shift;
        print "$entry->{from}{name}: $entry->{body}\n";
    },
    on_error   => sub {
        warn "ERROR: $_[0]";
        $done->send;
    },
);

$done->recv;