Re: Multi process

[TomK32]

WildThing did a nice comment, but he not only mixed refresh with reset but also the redirect can be done better.

#!/usr/bin/perl
use CGI qw(:standard);

if (param('othersite')) {
    redirect('http://www.tomk32.de');
}
elsif (param('script')) {
    print param('data'); #or do some magic
}
else {
print start_html(), start_form(), textfield('data', $data),
    submit('script'), submit('refresh'), submit('othersite'), end_form
+, end_html();
}

--
package Lizard::King;
sub can { do { 'anything'} };