#!/usr/local/bin/perl
     use Mail::SendMail;

 $smtpserver	     = "mail.karger.net";
    $smtpport	     = 25;
    $sender		     = 'Karger <karger@karger.com>';
    $subject		     = "OMG NO";
    $recipient	     = '<karger@karger.com>';
    $replyto		     = $sender;
    $header		     = "X-Mailer";
    $headervalue	     = "Perl SendMail Module 1.09";
    
    
    $obj = new Mail::SendMail();
    $obj = new SendMail($smtpserver);
    $obj = new SendMail($smtpserver,	$smtpport);
    
    $obj->From($sender);
    $obj->Subject($subject);
    $obj->To($recipient);
    $obj->ReplyTo($replyto);
    $obj->setMailHeader($header, $headervalue);

    if ($obj->sendMail() != 0) {
	 print $obj->{'error'}."\n";
       }

       $obj->reset();