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