use MIME::Lite; 
my $outDir = "C:/" ; 
my $outFile = "wkly device rpt "."$today.xls"; 
my $file = "$outDir"."$outFile"; 
my $subject = " Weekly  Report for $today"; 
my $msg = "Hi "; 
#Open the File for Writing 
open (OUTPUT, ">$file") || die print "Cannot open $file\n"; 
print OUTPUT "FOUNDATION_ACCT_NUM\tORDER_ID\tSTATE\tCREATION_DATE\tLOSGTYPE\tDESCRIPTION\tPRODUCT_ID\tDISPLAY_NAME\tPRODUCT_TYPE\tWIRELESS\#\tPLAN_NAME\n"; 
 
my $message = MIME::Lite->new( 
From => 'xxx@xxx.com', 
To => 'xxxx@xxx.com,xxx@xxx.com', 
Subject => $subject, 
Data => $msg 
); 
# add the attachment 
$message->attach( 
Type => "application/txt", 
Path => "$file", 
#Filename => "$outFile", 
Disposition => "attachment" 
 ); 
$message->send('smtp','xxxxx.net', Debug =>1);