#!/usr/bin/perl

use strict;
use warnings;
use Web::Scraper;
use LWP::Simple;

my $content = get( 'http://perl-magazin.de/' );
my $scraper = scraper {
    process 'li', 'items[]' => 'TEXT';
    result 'items';
};

my $result = $scraper->scrape( $content );
print $_,"\n" for @$result;