lib/Net/demos/inetd

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