use Net::SMTP;

# connect to an SMTP server
$smtp = Net::SMTP->new('SMTP Server'); 
$smtp->mail( "sender address" ); 
$smtp->to("receipient address");

$smtp->data();

$smtp->datasend("To: receipient address"\n");
$smtp->datasend("From: sender address\n");
$smtp->datasend("Subject : Analysis Summary\n");
$smtp->datasend('c:\temp\analysis.csv');
$smtp->datasend(); 
$smtp->quit;