#!/usr/bin/perl use CGI qw(:standard); print header (-charset => 'UTF-8'); $drink=param("drink"); $sugar=param("sugar"); $cinnamon=param("cinnamon"); $creamormilk=param("creamormilk"); $getorpost=param("method"); print < Perl $getorpost method forms example

Perl forms input and processing example using $getorpost

Here is what you ordered:

$drink
$sugar
$cinnamon

$creamormilk

EOF