sending an excel attachment with MIME::Lite

From: p cooper (pdconetwofour_numbers__at_yahoo.co.uk)
Date: 01/31/04 

Date: Sat, 31 Jan 2004 11:38:32 GMT

 
Ive converted a pipe-delimited file to excel format with
Spread***::WriteExcel;

I now want to email it using MIME::Lite

anyone help out with
$message ->Type & encoding
( and the other stuff if its not correct)

 my $message = MIME::Lite->new(
                From => 'xxxxx' ,
                To => 'xxx' ,
                Cc =>'xx',
                Subject => 'The database file as an Excel format,
                Type => 'application/excel',
                Encoding => '8bit',
                Data => "Database files"
        );

        my ($mime_type, $encoding) = ('application/xls', 'base64');

        $message->attach (
                Type => $mime_type ,
                Encoding => $encoding ,
                Path => '/tmp/file.xls' ,
                Filename => 'file.xls'
        );