#!/usr/bin/perl -w
$|=1;
use strict;
use MIME::Lite;

my @addrs=qw/ nobody@nowhere.com me@my-isp.net /;

    my $msg = MIME::Lite -> new (
                                 From => 'me@my-isp.ne',
                                 To => join(",",@addrs),
                                 Subject => 'this is a test',
                                 Type=> 'TEXT',
                                 Data => 'test 1 2 3...'
                                 );
    MIME::Lite->send("smtp","localhost",Port=>9925);
    $msg->send;
    printf "Message sent.\n";