Looking at Net::SMTP I found the following within sub new

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

Without any further research I would guess that you may try:

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

alex pleiner <alex@zeitform.de>
zeitform Internet Dienste