use strict;
use warnings;
use CGI qw( :standard );
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Email::Simple;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Success;
use Email::Simple::Creator;
my $sender = param('Name');
my $sndr_email = param('Email');
my $sire1 = param('Sire1');
my $dam1 = param('Dam1');
my $sire2 = param('Sire2');
my $dam2 = param('Dam2');
my $rcp_email = "email\@gmail.com";
my $subject = "Mating";
my $message = "Combination 1:\nSire: $sire1\nDam: $dam1\n\nCombination2:\nSire: $sire2\nDam: $dam2\n";
my $email = Email::Simple->create(
header => [ From => "$sndr_email", To => "$rcp_email", Subject => "$subject" ],
body => $message,
);
sendmail($email);
if (my $success = Email::Sender::Success->success) { #this is wrong
print "Content-type: text/html\n\n";
#the page is never seen
print << 'EOF';
Title