my $s = Net::SMTP->new( $host, Port => $port , Debug => 1);