use MIME::Lite;
	$smtp = "mailserver";
	$internal_email_address = 'myemailaddess';
	$a = sprintf ("%-90s %-s\n", "the amount for Apple is ","34");
	$b = sprintf ("%-90s %-s\n", "the amount for Lemons is", "7");
	print $a;
	print $b;
	$c = $a.$b;
	mailer( $internal_email_address,"issue", $c);
	

sub mailer {
	my ( $addr, $subj, $output ) = @_;

	print "$_\n" for $addr;
	print "$_\n" for $subj;
	print "$_\n" for $output;

	$msg = MIME::Lite->new(
		From    => 'xxxx',
		To      => $addr,
		Subject => $subj,
		Data    => $output
	);

	MIME::Lite->send( 'smtp', $smtp, Timeout => 60 );
	eval { $msg->send };
	$mailerror = "Status: ERROR email - MIME::Lite->send failed: $@\n" if $@;
	if ( $mailerror eq '' ) {
		$status = "Status: Mail sent\n";
	}
	else {
		$status = $mailerror;
	}
}