sub sendmail {
   my $self = shift;
   my $param = shift;