#use Mail::Sendmail;

print $email->as_string;
print "end of mail as_string\n";
use Email::Sender::Simple qw(sendmail);
my $response = sendmail($email);

print "Response = $response\n";

print "error1 $!\n";