hi i change this code and add the content line but nothing happens. Can someone help me ?


# Get a filehandle, and open pipe to sendmail.
my $s = &FileHandle::new('FileHandle');
open ($s, "|$self->{'sendmail'}");
print $s "To: ", $self->{'to'}, "\n";
print $s "From: ", $self->{'from'}, "\n";
print $s "Reply-to: ", $self->{'reply'}, "\n" if $self->{'reply'};
print $s $self->{'headers'}, "\n" if $self->{'headers'};
print $s "X-Mailer: Mailer::$VERSION (http://www.gossamer-threads.com/scripts/)\n";
print $s "Subject: ", $self->{'subject'}, "\n\n";
print $s "Content-type: text/html\n";
print $s $self->{'msg'};
close $s;