#!/usr/bin/perl 

use DBI;
use LWP::UserAgent;
use XML::RSS;
use Encode;
use warnings "all";

# Datenbankverbindung aufbauen
my $dbh=DBI->connect('dbi:mysql:***','***','***');

# Datei-Fetching mit LWP
my $url = "http://www.dieter-broers.de/blog.xml";       
my $ua = LWP::UserAgent->new();
$ua->agent('Opera');
my $response = $ua->get($url);
my $ticker=$response->content();

# Irgendetwas aus dem RSS extrahieren und das in die Datenbank schreiben
my $rss = XML::RSS->new();
$rss->parse($ticker);
foreach $item (@{$rss->{'items'}}){
        my $title = $item->{'title'};
        my $sth = "INSERT INTO `meinetabelle` (`titel`) VALUES ('$title');";
        my $query=$dbh->prepare($sth); 
        $query->execute;
        }

# Datenbankverbindung trennen
$dbh->disconnect;