my $smtp = Net::SMTP->new($SMTP_SERVER, Debug => 1) or die "Cannot connect to $SMTP_SEVER. $@";