#!/usr/bin/perl
use warnings;
use strict;

use Log::Log4perl qw(:easy);
use File::Temp qw(tempfile);

 Log::Log4perl->easy_init($DEBUG);

use XML::RSS::FromHTML::Simple;

my $f = XML::RSS::FromHTML::Simple->new({
    url       => "http://perlmeister.com/art_eng.html",
    rss_file  => "perl-snapshot.xml",
});

$f->link_filter( sub {
    my($url, $text) = @_;
    if($url =~ m#linux-magazine\.com/#) {
        return 1;
    } else {
        return 0;
    }
});

$f->make_rss() or die $f->error();
