#!/usr/bin/perl 



 # Create a new Mail::Internet object,

 # which we'll use to build our message. 



 $mail = Mail::Internet->new(); 

# Add three fields to the message:

# To:, Cc:, and Subject:



$mail->add(    To => 'user1@foobar.com', 

               Cc => 'xyz@not.here', 

          Subject => 'Please Read This ...' 

           ); 
# Store @text in the message body.

# The $mail object makes a copy, so later 

# changes to @text won't affect the

# message. 



$mail->body( \@text );