Grrrhhh

From the Net::SMTP source, in method new, it is replacing PeerPort with Port. So, using Net::SMTP->new(Port => 11234, ...) should work.

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

Hope this helps,,,

Update: Amazing how two people can type the same message and submit at the same minute.