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

# User-Agent
my $ua = LWP::UserAgent->new();

# GET-Anfrage, konstanter Teil
my $url = 'http://w3-n.hm.edu/fs4search/firstseek.search?'
        . 'resultsURL=result.de.jsp&query=';

# GET-Anfrage, variabler Teil
my $search = 'Plate';

# GET-Anfrage komplett zusammenbauen
my $request = HTTP::Request->new('GET' => $url . $search);

my $res = $ua->request($request);
if ($res->is_error())
  { die "Fehler: ", $res->code(), $res->message(), "\n"; }
print $res->content() , "\n";