There really should be a CGI/webserver check-list on perlmonks

Maybe even like this one I posted to tutorials a couple of years ago? ;-)

CGI Help Guide

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

#!/usr/bin/perl -wT
use strict;
use CGI qw(:all);

my $p = new CGI();

## Let's just start with the start of our HTML-dokument.

print header, start_html("A test-script"), h1("A test script");

## Let's check what state our script is in. Either the question has
## been answered, or it hasn't.

if (param('feeling')) {
    answer();
} else {
    ask();
}


sub ask {
    print start_form(), hr,
    p('How are you feeling?', popup_menu('feeling', ['good', 'bad'])),
+ # param 'feeling' get's defined as either good or bad
    p(submit('Choose')),
    end_form, hr,
    end_html;
}

sub answer {
    my $feeling = param('feeling');
    if ($feeling =~ /good/i) {
        print p("That's nice to hear!");
    } else {
        print p("That's to bad");
    }
    end_html();
}
[download]