print {$mailer}  $body  || croak "couldn't send whole message: $!\n";