my $emailname=$defaults{Mail}{FromName}||"";
my $emailaddr=$defaults{Mail}{From}||"$ENV{USER}";
my $emailcombined='"' . $emailname . '" <' . $emailaddr .'>';

 my $msg=MIME::Lite->new(
       'From'    =>$emailcombined,
etc