#!usr/bin/perl -w
     use MIME::Lite;
    ### Create a new single-part message, to send a GIF file:
    $msg = MIME::Lite->new(
        From     => 'me@myhost.com',
        To       => 'marceric@free.fr',
        Cc       => 'projet.chibani@gmail.com, revoil@et.esiea.fr',
        Subject  => 'Helloooooo, nurse!',
    );
	
    $msg->send; # send via default
	exit;