use LWP::UserAgent;
my $ua = new LWP::UserAgent;
$ua->agent("lustiger Browser");
my $request = new HTTP::Request GET => $url;

my $response = $ua->request($request);

if ($response->is_success) {
	#print $response->content;			# funktioniert, ich will aber keine Ausgabe..
	my $html = $response->content;		# warum steht in $html nicht der content?
	$status = "ok";
}
else {
	$status = "Error: ". $response->status_line;
}

return ($status,$html);