#!/usr/bin/perl
use strict;
use Web::Scraper;
use WWW::Mechanize;
use URI;

my $account_name = shift or die "usage: fooo_name.pl accountname\n";
my $stuff   = URI->new("http://fooo.name/accounts/$account_name");
my $scraper = scraper {
    process '//div[contains(concat(" ",@class," "), "margin_m")]/span/a[1]', 'link[]' => '@href';
};
my $result = $scraper->scrape($stuff);

for my $l (@{$result->{link}}) {
    print "$l\n";
};