mailx-thingy.pl

    my $smtp = Net::SMTP->new("hostename.blarg", Hello=>"my.rev.name", Debug=>1)
        or croak $!;

    $smtp->mail('[email protected]');
    $smtp->to(qw([email protected] [email protected]));

    $smtp->data;
    $smtp->datasend(qq("From: "The Shandorion" <[email protected]>\n));
    $smtp->datasend("To: people, people, people\n");
    $smtp->datasend("Subject: whatever...\n");
    $smtp->datasend("Reply-To: whatever\n");
    $smtp->datasend("\n");

    $smtp->datasend($msg);

    $smtp->dataend;
    $smtp->quit;