#!/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 Att1 Att2 Att3 Att4 Att5 Att6 Att7 Att8 Att9 Comments ); my $mailer = Mail::Mailer->new; $mailer->open({ To => 'foo@bar.com', From => 'baz@qux.com', Subject => 'results of submit', }); my $body; $body .= "$in{$_}\n" for @param; print $mailer $body; $mailer->close;
In reply to Global symbol requires explicit package name by Nickd_69
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |