#!/usr/bin/perl
use HTML::TreeBuilder;

for (1..67) {
    $_ = sprintf '%04d', $_;
    my $name = "erf$_.html";
    my $page_url = "http://www.giantitp.com/comics/$name";
    system "wget.pl $page_url";
    my $tree = HTML::TreeBuilder->new;
    $tree->parse_file("pool/$name");
    @imgs = $tree->look_down('_tag' => 'img');
#    for (my $i = 0; $i < @imgs; $i++) {                    # Преобретение
#        print "$i:\t",$imgs[$i]->attr('src'),"\n";                    # Знания!
#    }                                            #
    $comics_img = 'http://www.giantitp.com'.$imgs[16]->attr('src');        # Знание сила!
    system "wget.pl $comics_img";
    unlink "pool/$name";    #Ибо нефиг!
    $tree->delete;
}