#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";