my $d = HTTP::Daemon->new(
	LocalHost => $My_IP,
	LocalPort => 3002,); die...
while (my $c = $d->accept) { 
	while (my $r = $c->get_request) { 
        	if ($r->method eq 'GET') {
...
$rs->add_content(CGI::submit(-name=>'Sparbetrieb', -value=>'Sparbetrieb');
...
} elsif ($r->method eq 'POST') {...}
...