#!/usr/bin/perl -wT

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Mail::Mailer;

CGI::ReadParse();
my $query = CGI->new();

my $mailer = new Mail::Mailer ( "smtp" );
$mailer->open(
   {
   To      => 'dawson.nicholas.a@edumail.vic.gov.au',
   From    => $in{'Email'},
   Subject => 'Travancore School Professional Development'
   }
);

print $mailer "$in{'Title'}\n";
print $mailer "$in{'Name'}\n";
print $mailer "$in{'Position'}\n";

$mailer->close;

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