#!/usr/local/bin/perl ########################################## # # doubles.cgi # # Opens a file to satisfy input # # use CGI qw(:standard); ########################################## # # Set the receiver file $method = "post"; $action = "CatchDoubles.cgi"; print header, start_html("Doubles.cgi"), h2("Hitters of Doubles"), start_form($method, $action), ########################################## # # Popup menu of hitters of doubles popup_menu(-name=>'hitter', -values=>[ 'Earl Webb', 'George Burns', 'Joe Medwick', 'Hank Greenberg', 'Paul Waner', 'Chas. Gehringer', 'Tris Speaker', 'Chuck Klein', 'Billy Herman' ]), hr, submit("Submit"), reset("Clear Form"), end_form, end_html;