#!/usr/bin/perl
use strict;
use CGI qw(-oldstyle_urls :standard);
use CGI::Carp qw(fatalsToBrowser);
use Date::Calc qw( Add_Delta_Days Decode_Date_US Today );
use HTML::Template;
my $template = HTML::Template->new( filehandle => *DATA);
print "Email Test
";
my $from = 'test@test.com';
my $to_name = 'Test Form';
my @mail_to = (
'me@test.com'
);
my $subject = "TEST TEMP\n\n";
# template parameters
my $f_name = "Joe";
my $date = "02/08/2011";
my $acc = "123455667889";
my $company = "Test Company.";
$template->param(f_name => $f_name);
$template->param(date => $date);
$template->param(acc => $acc);
$template->param(company => $company);
my $mail_body = $template->output; # Corrected
sendmail( \@mail_to, $subject, $mail_body, $from, $to_name );
print "\nDONE\n";
__DATA__
| |
| Test |
| | |
| Name: | . |
| EDate: | . |
| Acc: | . |
| Company: | . |