use warnings;
use strict;
use 5.008;
my @cmd = ('mailx','-r',$EMAIL_ADMIN,
	'-s',"Exchange Backup Status $rptdate",$SEND_TO);
die '@cmd must have more than one element' unless @cmd>1;
open my $fh, '|-', @cmd or die $!;
print $fh $mail_body;
close $fh or die $! ? $! : $?;