#!/usr/bin/perl
#
# cgipm_ex.pl - print arguments to CGI script
#
use CGI;

$query = CGI::new();
print $query->header();
print $query->start_html(-title=>'Form Parameters');
print $query->h1('Form Parameters');
foreach $name ( $query->param() ) {
    $value = $query->param($name);
    print "$name => $value\n";
    print $query->br();        # Insert a line break
    
}
print $query->end_html();