PC Professionell 2004 December/PCpro_2004_12.ISO/files/webserver/tsw/TSW_3.4.0.exe/Apache2/perl/inetd

Text File | 2003-11-06 | 197 b | 10 lines

#!/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;