#!/usr/bin/perl -W
use lib '../lib';
use HTML::Mail;
use strict;
# Example on how to construct dynamic content and send it
# This is quite useless in this example but with a lot of media on the html and a lot of individual recipientssomething on the lines of this might be usefull
if ( $#ARGV != 2 ) {
print < qq{Hi $name
you are $age years old.
},
Text => "Hi $name.\n\nYou are $age years old.\n",
From => 'plank@cpan.org',
To => $email,
Subject => "HTML::Mail dynamic example",
);
$html_mail->send();