#!/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://bild.de",
    rss_file  => "bild.xml",
});

binmode STDOUT, ":utf8";

$f->link_filter( sub {
    my($url, $text) = @_;

    return 1;
});

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