use warnings;
 use strict;
 use LWP;
my $browser = LWP::UserAgent->new();

my $url = "http://www.altavista.com";
my $response = $browser->post($url,['q'=>"hemoglobin",'pg' => 'q', 'avkw' => 'tgz', 'kl' => 'XX']);
die "Fehler: ", $response->status_line
	unless $response->is_success;
my $c = $response->content;
print "$c \n";