Select Code to Download

use strict;
use warnings;
...
# Send email and finish
sendmail( %mail ) or die "Error: $Mail::Sendmail::error\n";
printf "\nMail Sent @ $date\n";

use strict;
use warnings;
...
);

$msg->send;