$msg->send() || print FILE $str;

##</code><code>##

$to = "$to\@somemail.com";

$from = "$from\@somemail.com";

$subject = "Email Sent via Perl";

$message = "This email was sent using Perl.";

 

email($to, $from, $subject, $message,);

 

sub email

{

 

local ($to, $from, $subject, $message) = @_;

 

$msg = MIME::Lite->new(

  From => $from,

  To => $to,

  Subject => $subject,

  Data => $message

 );

 

MIME::Lite->send('smtp', 'some.smtp.smtp',Debug=>1);

 $msg->send();

}