my $q = new CGI;

if($q->param("make ponies appear")) {
    # do something with the form data
} else {
    # show the form or something else
}