MIME::LITE not sending email

[jcarrott]

I have a program HISEMAIL

#!/usr/lpp/oracle/product/10.2/perl/bin/perl

use MIME::Lite;

$LAWDIR="/usr/lawson/lawson";

$rc=system("cd $LAWDIR/print/lawhht/hishourly/3");

$msg = MIME::Lite->new(
    From    => 'IC500@ochsner.org',
    To      => 'jcarrott@ochsner.org',
    Subject => 're: HISHOURLY report',
    Type    => 'multipart/mixed',
    Content => 'Please review for errors',
    );

$msg->attach(
    Type     => 'TEXT',
    Filename => 'IC500.pdf',
    );

MIME::Lite->send('smtp', 'mail.ochsner.org', Timeout => 60);
$msg->send();

The last line ($msg->send(); is line number 38. The error I get is;

no data in this part at HISEMAIL line 38

I have no idea why there is no data. Can anybody see what I did wrong?