#!/usr/bin/perl -w

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

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

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

my %in;

my $body;
$body .= "$in{$_}\n" for @param;
print $mailer $body;

$mailer->close;