#!/usr/bin/perl -w

use Getopt::Long;
use MIME::Lite;
use strict;
use warnings;

my $cc;
my $bcc;
my $msg;
GetOptions( 'cc=s' => \$cc, 'bcc=s' => \$bcc, );

my( $from, $to, $subject ) = @ARGV;


$msg = MIME::Lite->new (
    From     =>  $from,
    To       =>  $to,
    Subject  =>  $subject
    );
$msg->send('tls','mail.fakessh.eu',
                  Hello => 'mail.fakessh.eu', 
                  Port => "587", 
                  User => "fakessh\@fakessh.eu" , 
                  Password => "***************" , Debug => 4 );