1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

use LWP::Simple;

&newsrequest;

sub newsrequest
{
  print "Content-type: text/html", "\n\n";

  my $page = get('http://news.google.de/news?q=eminem&hl=de&lr=&ie=UTF-8&edition=de&scoring=d') || die 'Can\'t get page'; 
  
  print "$page";
  print "+DONE";
  exit();
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
$ua->agent("Koqueror");

my $request = HTTP::Request -> new('GET',"http://news.google.de/news?q=eminem&hl=de&lr=&ie=UTF-8&edition=de&scoring=d");
my $response = $ua ->request($request);

if ($response -> is_success)
{        
  $google = $response->as_string ;        
  print "Content-Type: text/html\n\n";        
  print  $google;
}
else
{        
  print "Content-Type: text/html\n\n";        
  print $response->error_as_HTML();
}