#!/usr/bin/perl -w

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Mail::Mailer (qw/close/);

my $query = CGI->new();

my @param = qw(
   Title Name Position School Address
   Suburb State PCode Email Tel Fax
   Comments
);

my $mailer = Mail::Mailer->new;
$mailer->open({
   To      => 'test@tester.com,
   From    => 'tester',
   Subject => 'results of submit',
});

$mailer = $query->param('Title');
$mailer = $query->param('Name');
$mailer = $query->param('Position');
$mailer = $query->param('School');
$mailer = $query->param('Address');
$mailer = $query->param('Suburb');
$mailer = $query->param('State');
$mailer = $query->param('PCode');
$mailer = $query->param('Email');
$mailer = $query->param('Tel');
$mailer = $query->param('Fax');
$mailer = $query->param('Comments');

$mailer->close;

print $query->redirect('http://www.travancoresch.vic.edu.au/development/reply02.html');