[etc] Sending Email messages from within a Perl Script

Below is the script that does that.. Figure out urself of what it does.
Shank

#!/usr/bin/perl

$MY_HOME = $ENV{'HOME'};
$AUTHOR = "Ashfaq Khokhar";
$AUTHOR_MAIL = "Ashfaq Khokhar <ashfaq\@ece.uic.edu>";
#$AUTHOR_MAIL = "dbader\@ece.unm.edu";
$AUTHOR_MAIL2 = "shashank\@evl.uic.edu";
$SUBJECT = "Invitation to a Conference (Testing 1 2 3 ....)";

$ADDRESS_LIST = "$MY_HOME/addresslist.txt";
$CONTENT_FILE = "$MY_HOME/content.txt";

open (CNTFILE, $CONTENT_FILE);
@content = <CNTFILE>;



open (INFH, $ADDRESS_LIST);

$j = 1;
while ($lines = <INFH>){
    if ($lines =~ /^\s*$/){
	last;
    }

    @flds = split(/:/, $lines);

    ($name, $petname, $address, $mail) = @flds;
    chomp($mail);
#    print ("$j - $name \t\t $mail \n");$j++;

    $mailbody = "Dear ".$petname.",\n\n"."@content";

#    print $mailbody;
#    print "--------------------------------------------------------\n";

    open(SENDMAIL, "| /usr/sbin/sendmail -t -n") || die "Unable to open sendmail";
    print SENDMAIL "From: $AUTHOR_MAIL\r\n";
    print SENDMAIL "To: $mail\r\n";
#    print SENDMAIL "Bcc: $AUTHOR_MAIL2\r\n";
#    print SENDMAIL "ErrorsTo: $AUTHOR_MAIL\r\n";
    print SENDMAIL "Reply-To: $AUTHOR_MAIL\r\n";
    print SENDMAIL "Subject: $SUBJECT\r\n";
    print SENDMAIL "$mailbody\r\n";
    close(SENDMAIL); 
    print ("Sending Message to: $name, $mail [Done]\n");
};