use strict;
use warnings;
use LWP::UserAgent;
use URI::Escape;

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

# GET-Anfrage, konstanter Teil
my $url = 'http://www.ee.hm.edu//cgi-bin/swish.cgi?'
        . 'suche=';

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

# GET-Anfrage komplett zusammenbauen
my $querystring = uri_escape($search);
# (liefert: J%FCrgen%20Plate)

my $request = HTTP::Request->new('GET' => $url . $querystring);

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