#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;

my $url = 'http://www.kultusportal-bw.de/servlet/PB/menu/1188427_pfhandler_yno/index.html';

my $mech = WWW::Mechanize->new();
$mech->get( $url );

$mech->field('einfache_suche','*');
$mech->submit();
# $mech->content now contains the results page.