#!/usr/local/bin/perl -wT
use strict;
##</code><code>##

use CGI;
my $q = new CGI;
print $q->header;

##</code><code>##

	print "<H2 ALIGN=center>It's been sent!</H2>; 
        print "<HR ALIGN=center>";
	print "<IMG SRC=\"http://www.iupui.edu/~webtrain/Graphics/Photos/bora_bora.jpg\>";
        ...	

##</code><code>##

@pairs =  &url_decode(split(/[&]/, $request));
while ($pairs[$r]) {
	($a,$b) = split(/[=]/,$pairs[$r++]);
	($name = $b) if ($a eq 'name');
        ($email = $b) if ($a eq 'email');
        ...

##</code><code>##

$q->param('name')
$q->param('email')
...