Untitled

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use WWW::Mechanize;
use vars qw(@links);


my $mech = WWW::Mechanize->new( agent => 'Mozilla/5.0 (Windows NT 6.1; rv:11.0) Gecko/20100101 Firefox/11.0' );
for (my $i = 800; $i >= 0; $i -= 20) {
    $mech->get("http://diary.ru/~narven-aegilwen?from=$i");
    push @links, $mech->find_all_links(text => 'URL');
}


foreach my $link (@links) {
    my $filename = $link->url_abs()->path();
    $filename =~ s[/][];
    $mech->get($link, ':content_file' => "E:\\diary\\$filename");
    print $filename . "\n";
}