#!/usr/bin/env perl use strict; use warnings; use CGI; my $q = new CGI; my $name = $q->param('name'); my $id = $q->param('id'); print << "EOF"; Content-type: text/html

id --> $id

name --> $name

EOF