use MIME::Lite
...
...
...
	sub benchMailReport
	{
		my $msg = new MIME::Lite(
		      From    => $defaults{EMAIL_FROM},
		      To      => $defaults{EMAIL_TO},
		      Subject => $defaults{EMAIL_SUBJECT},
		      Type    =>'multipart/mixed'
		      );
		$msg->attach(
	     	Type        =>'TEXT',
	     	Disposition =>'inline',
	     	Path     => $defaults{REPORT_DIR},
	        Filename => $defaults{REPORT_FILE_NAME}
	                    );
		my ($result) = $msg->send();
       }