use Net::SMTP;

$smtp = Net::SMTP->new(	'smtp.server.com',
			Debug   => 1,
                        bits=>"8"); # connect to an SMTP server
$smtp->auth('login', 'password' );
$smtp->mail( 'login@server.com' );     # use the sender's address here

#print $smtp->banner();
$smtp->to('someone@something.com');        # recipient's address
$smtp->data();                      # Start the mail


# Send the header.
$smtp->datasend("To: someone_2@something.com\n");
$smtp->datasend("From: 'someone@something.com\n");
$smtp->datasend("Subject: Inscription Résumé");
$smtp->datasend("\n");

# Send the body.
$smtp->datasend("Résumé");
$smtp->dataend();                   # Finish sending the mail
$smtp->quit;                        # Close the SMTP connection