I went into the perl package and installed sendmail.

You'll have to explain what you mean by that, because it makes no sense to me.

    
    $obj = new Mail::SendMail();
    $obj = new SendMail($smtpserver);
    $obj = new SendMail($smtpserver,    $smtpport);
[download]

So, you overwrite $obj three times in three lines? I think it might be best if you were to explain a bit more what it is that you expect your script to do. You might think about using strict too.