my $entity = MIME::Entity->build
		(
			Type => 'multipart/mixed',
			From => 'email',
			To => 'address',
			Subject => "blah",
		)
		or die "Error creating MIME entity: $!\n";

	$entity->attach(
			Type => 'text/plain',
			#Encoding => 'base64',
			Data=>join("\n",@msg_body)
		);

	$entity->attach(
			Filename => "report.txt",
			Type =>'text/plain',
			Data => join("\n",@attach)
		)
		or die "Error adding the text message part: $!\n";

	$entity->smtpsend;