mailx-thingy.pl

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

    $smtp->mail('doosh@landlord.com');
    $smtp->to(qw(dude@domain.com whateverguy@target.tld));

    $smtp->data;
    $smtp->datasend(qq("From: "The Shandorion" <doosh@landlord.com>\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;