Please advise why I keep getting this message when I run my script. This script has worked great in sending email messages out until yesterday it now gives the following message:

Problem1! mail From: error (505 Secure channel required)
[download]

I did not change anything on my NT workstation or my script. And I can send mail out using my other software such as Cold Fusion using smtp. Please advise if anyone can offer any reason for my error message??

#use hash here
print "okay\n";
        my %mail = ( To      => 'yourname@hotmail.com',
                     From    => 'myname@hotmail.com',
                     Subject => "NO CHANGE HERE",
                     Message => "NO CHANGES.\n",
                       );
        $mail{smtp} = 'smtpgate.nima.mil';

        sendmail(%mail) or die "\nProblem1! $Mail::Sendmail::error\n";
[download]