You have quite a lot of errors in your code. in fact you probably did not get this code from the program you are running.

Something like this seems to work:

#!/usr/bin/perl -w   # note: -w
use strict;          # note: strictness
use MIME::Lite;      # note: ends with ;
my $msg = MIME::Lite->new(    # note: ->new(
  From=>'some@email',
  To=>'some@email',
  Subject=>'SUBJECT OF MESSAGE',
  Type=>'TEXT',
  Data=>"THIS IS THE MESSAGE"
);  # do not forget this
$msg->send("smtp","smtp.something.addr"); # note: small letters
                                          # and smtp server
[download]

Your problem (amongst others) is probably that you don't have a default SMTP server specification.

It would probably also help to Read The Manual.

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]