#!/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;