$mailer->open(\%headers);
  print $mailer $body;
[download]

I was just quoting what was in the perldoc.

Part of the problem is I excerpted too fast leaving out my $mailer = new Mail::Mailer; - see below.

$mailer->open(\%headers); is giving the open method a reference to the hash %headers, so the following are equivalent:

my $mailer = new Mail::Mailer;

my %headers = 
(
  To      => 'test@tester.com,
  From    => 'tester',
  Subject => 'results of submit',
);

$mailer open(\%headers);
[download]

and

my $mailer = new Mail::Mailer;

$mailer->open({
  To      => 'test@tester.com,
  From    => 'tester',
  Subject => 'results of submit',
});
[download]

Those two are equivalent because the first creates a hash then hands open() a reference to it using the backslash to take the reference. The second creates a hashref in place by enclosing the contents of the hash in curlie brace {} instead of the normal ().

And yes the error message 'Global symbol "$body" requires explicit package name' does mean you're using strict and need to declare the variable using my. Congratulation on using strict - it's a very good habit to get into.

Having used the open() method, you would then say:

print $mailer  $query->param('Title');
print $mailer  $query->param('Name');
print $mailer  $query->param('Position');
# etc for rest of params
$mailer->close;
[download]

All code here is untested, BTW.

--Bob Niederman, http://bob-n.com

Hey bob thanks for your previous response as it helped HEAPS!! I am now recieving this error which I am not sure why??

syntax error at enquiry02.pl line 25, near "$mailer open"
[download]



It doesn't like that line were you open the headers. Here is my code so far. I reckon it looks ok but I only a newbie so it properly aint. Can you or anyone see what I did or am doing wrong in a simple terms as you can??? Thanks fellas

#!/usr/bin/perl -w

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

my $query = CGI->new();

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

my $mailer = new Mail::Mailer;

my %headers =
(
  To      => 'test@tester.com',
  From    => 'test',
  Subject  => 'test send stuff',
);

$mailer open(\%headers);

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

print $mailer $body;

$mailer->close;

print $query->redirect('http://www.travancoresch.vic.edu.au/developmen
+t/reply02.html');
[download]