#!/usr/bin/perl -w

    use MIME::Lite;

    $msg = MIME::Lite->new(
             From     => 'moi@monchezmoi.org',
             To       => 'toi@toncheztoi.org',
             Cc       => 'lautre@sonchezlui.org',
             Subject  => "Hier soir !",
             Data     => "Alors, c'était bien ?\n\nMoi."
             );

    $msg->send;