Select Code to Download

   $obj = $type->SUPER::new(PeerAddr => ($host = $h), 
                            PeerPort => $arg{Port} || 'smtp(25)',
...
                                                ? $arg{Timeout}
                                                : 120
                           ) and last;

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