Throw away the line beginning with "MIME::Lite->send". That line makes no sense, you are trying to use send before having defined what to send. Note the "$msg->send" line at the end that does the right thing at the right time.

UPDATE: Baah, wrong answer. MIME::Lite uses send as class method to specify the send method. Please ignore above. And -- to MIME::Lite for silly method name reuse.