Here is an example using a module to handle the MIME type: 
#!/usr/bin/perl
use MIME::Entity;
use Net::SMTP;

# create the multipart message with attachments 
$msg = MIME::Entity->build(
    Type => 'multipart/mixed',
    From => 'bogus@mail.com',

    # The "To" here is displayed in the message header as "To" 
    # This is not the actual list of recipients 
    To => '"Display Name" <user1@mail.com>, "Second Person" 
<user2@mail.com>',
    Subject => 'Automatic email of Excel report',
);
$msg->attach(
    Type     => 'application/msexcel',
    Path     => $report,
    Filename => 'college_orders.xls',
    Encoding => 'base64'
);
$msg->attach(
    Data => "Enclosed is the daily report of orders. 
(automated delivery)"
);

# send the message 
$smtp = Net::SMTP->new("smtp.mail.com");

#authenticate if required 
$smtp->auth( "login", "passwd" );

# Identify yourself to the smtp server 
$smtp->mail('bogus@mail.com');

# The syntax for "To" is different in MIME::Entity and Net::SMTP 
# The "to" here is the list of actual recipients and is not displayed 
$smtp->to( 'user1@mail.com', 'user2@mail.com' ) || die "Bad address";

# Send the message and attachments 
$smtp->data( [ $msg->as_string ] ) || die "mail not accepted";
$smtp->quit;

exit;

[download]

And since you are using sendmail in your question, here is how to do attachments with sendmail manually. You may have to adjust the content type for .xls (I never use it so I'm guessing). You can see, modules make it alot easier, setting up the multipart boundaries for you. 

#!/usr/bin/perl
use warnings;
use strict;

# Put the name of your file here 
my $filename = shift || $0 ;

# Location of sendmail program on your host 
my $mailprog = '/usr/sbin/sendmail';

# The email where you want the attachment to be sent to. 
my $to = 'zentara@zentara.zentara.net';

# Who the message is from 
my $from = 'zentara@zentara.zentara.net';

# Subject of the email. 
my $subject = "Attachment!";

# Type your message here. 
my $message = "This is an attachment.";

# Confirmation message that the email has been sent. 
my $confirm_message = "The email and attachment has been sent!";

my $boundary = 'qwertry'.time;

###################################################### 
# Encode according to file extention. 

my $content_type = "text/plain; charset=\"us-ascii\";"; #default 

my $encoding;

if ( $filename =~ /\.gif$/i ){ $content_type =
"image/gif; name=\"$filename\"; $encoding = 'base64';"}

if ( $filename =~ /\.jpg$/i ){ $content_type =
"image/jpeg; name=\"$filename\"; $encoding = 'base64';"}

if ( $filename =~ /\.zip$/i ){ $content_type =
"application/zip; name=\"$filename\"; $encoding = 'base64';"}


if ( $filename =~ /\.html$/i || $filename =~ /\.htm$/i ){
              $content_type = "text/html; charset=\"us-ascii\";";}
              
if ( $filename =~ /\.xls$/i ){
              $content_type = "application/msexcel; charset=\"us-ascii
+\";";}


if (   $filename =~ /\.txt$/i
    || $filename =~ /\.dat$/i
    || $filename =~ /\.doc$/i
    || $filename =~ /\.pl$/i
    || $filename =~ /\.cgi$/i ){ $content_type =
  "text/plain; charset=\"us-ascii\";";}

############################################# 
# Get the attachment 
my $b64image;
my @file;

if($encoding){
    open( IMAGE, "$filename");
    binmode(IMAGE);
    undef $/;
    my $rawimage = <IMAGE>;
    $/        = "\n";
   close IMAGE;

$b64image = &encode_base64($rawimage);
chomp $b64image;
    }else{    # Doesn't need encoding. (Plain text type of document) 
      open( FILE, $filename );
      @file = <FILE>;
      close(FILE);
}
############################################# 
# Send Email 

open( MAIL, "| $mailprog $to" )
  || die("$0:  Fatal Error!  Cannot open sendmail:: $!\n");
print MAIL "Reply-to: $from\n";
print MAIL "From: $from\n";
print MAIL "To: $to\n";
print MAIL "Subject: $subject\n";
print MAIL "Mime-Version: 1.0\n";
print MAIL
"Content-type: multipart/mixed; boundary=\"======================_$bou
+ndary==_\"\n";

print MAIL"--======================_$boundary==_ 
Content-Type: text/plain; charset=us-ascii";
print MAIL "\n\n";

print MAIL "$message\n\n";

print MAIL "--======================_$boundary==_ 
Content-Type: $content_type\n";
if($encoding){ print MAIL "Content-Transfer-Encoding: $encoding\n";
    print MAIL "Content-Disposition: inline; filename=\"$filename\"\n\
+n";
    print MAIL $b64image;
  }else{ print MAIL "Content-Disposition: inline; filename=\"$filename
+\"\n\n";
      foreach my $line (@file) {
           print MAIL "$line";
    }
}
print MAIL "\n\n\n";
print MAIL "--======================_$boundary==_--";

close(MAIL);

####################################### 
# Confirm Mail has been sent 
print "Content-type: text/html\n\n";
print " $confirm_message\n\n";

####################################### 
sub encode_base64
{
    my $s = shift ;
    my $r = '';
    while( $s =~ /(.{1,45})/gs ){
        chop( $r .= substr(pack("u",$1),1) );
    }
    my $pad=(3-length($s)%3)%3;
    $r =~ tr|` -_|AA-Za-z0-9+/|; 
    $r=~s/.{$pad}$/"="x$pad/e if $pad; 
    $r=~s/(.{1,72})/$1\n/g; 
    $r; 
} 
__END__

[download]
I'm not really a human, but I play one on earth. flash japh

In reply to Re: Using Sendmail and attaching a xls (Excel) file by zentara
in thread Using Sendmail and attaching a xls (Excel) file by TASdvlper

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.