#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);

print header();
print start_html(-title=>"Results");
print start_form;
print popup_menu(-name=>"howreach",
                -values=>["0", "1", "2"],
                -labels=>{"0" => "Informed by prophet",
                          "1" => "Instructed by dog",
                          "2" => "Google, baby",}        );

print submit(-label=>"Go");

print end_form;
print end_html;