use MIME::Lite;
use Net::SMTP;

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

$msg->attach(
		Type       =>'TEXT',
		Filename   =>'$rptname'
	    );

MIME::Lite->send(smtp, "localhost");
$msg->send;

exit 0;