Echo form submitted data back to web browser for in-class demonstration purposes.

echo.pl

#!/usr/bin/perl

use URI::Query;
use Data::Dumper;

print "Content-Type: text/html\n\n";
print "You sent the server:\n\n";

print "<br><hr><br><pre>";

print $ENV{'QUERY_STRING'};

print "</pre>";

print "<br><hr><br><pre>";

my $q = URI::Query->new( $ENV{'QUERY_STRING'} );
my %hash = $q->hash;

print Dumper( \%hash );

print "</pre>";