use MIME::Lite;

$msg=MIME::Lite->new(
			From	=>'root@localhost.mycompany.com',
			To	=>'myname@mycompany.com',
			Subject	=>'Summary Report',
			Type	=>'multipart/mixed');

$msg->attach(Type =>'TEXT',
	     Data =>"Summary Report for yesterday");

$msg->attach(Type =>'TEXT',
	     Path =>'$rptname',
	     Filename =>'summary'.$date.'.txt');

$msg->send;