my $msg = MIME::Lite->new(
                 To      =>'user.name@address.com',
                 Subject =>$xls,
                 Type    =>'TEXT',
                 Data    => $text);

    MIME::Lite->send('smtp', 'your.server.name, Timeout=>60 );

    $msg->send;