#!/usr/bin/perl -w

use LiveJournal;

my $lj = LiveJournal::LiveJournalrc->new();
my $ljf = LiveJournal::Friend->new();

my @friends = $ljf->parse($ljf->get());

for (@friends) {
    print $_->{user}, "\n";
}