use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $wetter = "http://www.peng.es/wetter/wetter.txt";
my $response = $ua->request( HTTP::Request->new('GET' => $wetter ) );
print $response->decoded_content, $/
__END__
<div align="center"><strong><span class="temp">15.3&deg;C</span></strong> <span class="resttemp">(59.5&deg;F)<br><font size="-2">23:25 - 19 Feb 2011</font></span></div>