[ViewVC] Annotation of: cvs/cvsroot/staticperl/perl/lib/Net/demos/inetd

#!/usr/local/bin/perl

use Net::DummyInetd;
use Net::SMTP;

$p = new Net::DummyInetd qw(/usr/lib/sendmail -ba -bs);

$smtp = Net::SMTP->new('localhost', Port => $p->port, Debug => 7);
$smtp->quit;
Revision:	1.1
Committed:	Thu Jun 30 14:27:14 2005 UTC (21 years, 4 months ago) by root
Branch:	MAIN
CVS Tags:	PERL-5-8-7, HEAD
Branch point for:	PERL
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.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;