use MIME::Lite;

my $for_whom     = "somebody@tolove.com";
my $sender_email = "lonely@girl.com";
my $message      = "Forget me not";
my $subject      = "FOO BAR";

send_email_noattach($for_whom,$sender_email,$message,$subject);

sub send_email_noattach {

    
    # using MIME::Lite
    my ( $target_add, $my_add, $mssg, $subject ) = @_;

    my $msg = MIME::Lite->new(
        From    => $my_add,       
        To      => $target_add,   
        Subject => $subject,      
        Type    => 'multipart/plain',
    );

    $msg->attach(
        Type => 'TEXT',
        Data => $mssg
    );


    $msg->send();

    return;              
}