package MySMTP
  ...
  sub new {
  	my $self = {};
  	$self->{SMTP} = Net::SMTP->new("192.168.0.11);
  	$self->{DBH}  = DBI->connect_cached(....);
  }
  
  sub get_list {
  	...
  	return @list;
  }
  
  sub sendMail {
  	my ($self,$to,$content) = @_;
  	$self->{SMTP}->mail(xxx.s@soch.com);
  	$self->{SMTP}->to($to);
  	$self->{SMTP}->data();
  	$self->{SMTP}->datasend
  	$self->{SMTP}->datasend("\n");
    $self->{SMTP}->datasend('To: '.$to);
    $self->{SMTP}->datasend("\n");
    $self->{SMTP}->datasend('Content-type:text/html;Charset=utf8');
    $self->{SMTP}->datasend("\n");
    $self->{SMTP}->datasend("Subject: hello");
    $self->{SMTP}->datasend("\n\n");
    $self->{SMTP}->datasend("$content\n");
    $self->{SMTP}->dataend();
    $self->{SMTP}->quit;
  }