I'd use MIME::Lite. Consider:

use strict;
use warnings;
use MIME::Lite;

# Configure smtp server - required one time only
MIME::Lite->send ("smtp", "smtp.server.com"); 

my $msg = MIME::Lite->new
  (
  From    => 'wibble@wobble.com',
  To      => 'foo@boo.com',
  Data    => "A simple test message\n",
  Subject => "Hello World",
  );

$msg->send ();
[download]