Select Code to Download

#!/usr/bin/perl -wT

use strict;
...
#Send the Message
$mail->smtpsend(Host => SMTP_HOST)
  or die 'Could not send message to ', $to->format;