
Det var alltför länge sedan vi besökte våra goda vänner i Kurland. God mat och goda nyheter! Vi får fan se till att det inte dröjer lika lång tid till nästa gång.
Bonus, en Kallebild från Trelleholla.

use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url = "http://www.blocket.se/li?ca=23_9_s";
$mech->get( $url );
my @ad_links = ();
my @images = ();
foreach my $link ($mech->links) {
push @ad_links, $link->url() if $link->url() =~ m/^\/vi\//;
}
foreach my $ad_link (@ad_links) {
$mech->get("http://www.blocket.se" . $ad_link);
foreach my $image ($mech->images) {
my $image_url = $image->url();
push @images, $image->url() if $image->url() =~ m/\/images\//;
}
}
print '<html><head><title>Blocketbilder - Landskrona</title></head><body>';
foreach my $image (@images) {
print '<img src="' . $image . '">';
}
print '</body></html>';