#!/usr/local/bin/perl -wT
use strict;
use CGI qw/:standard/;
# Geturl.pl
# A little Perl script to read, decode and print the names
# and values passed to it from an HTML Form thru CGI.

# Get the HTML header, ender, define the page title.
my $Title = "Get Information From a URL";

print header(),
      start_html ( -title => $Title ),
      h1( $Title ),
      hr();

# This gets the name of all of the form elements
my @names = param();

# The param() function takes the name of the parameter and returns its value
foreach my $name ( @names ) {
    print "Name = $name, Value = " . param( $name ) . "<br>\n";
}
print end_html;