root/lang/perl/misc/fooo_name.pl @ 461

#!/usr/bin/perl
use strict;
use Web::Scraper;
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[@class="margin_m"]/span/a[1]', 'link[]' => '@href';
};
my $result = $scraper->scrape($stuff);

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