This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Initial integration of libnet-1.0703.
[perl5.git] / 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;