1*0Sstevel@tonic-gate#!/usr/local/bin/perl 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gateuse Net::DummyInetd; 4*0Sstevel@tonic-gateuse Net::SMTP; 5*0Sstevel@tonic-gate 6*0Sstevel@tonic-gate$p = new Net::DummyInetd qw(/usr/lib/sendmail -ba -bs); 7*0Sstevel@tonic-gate 8*0Sstevel@tonic-gate$smtp = Net::SMTP->new('localhost', Port => $p->port, Debug => 7); 9*0Sstevel@tonic-gate$smtp->quit; 10