Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
cpan
/
libnet
/
demos
/
inetd
blob: 36a00e7bb880798c76e0f3b8936846f758551b40 [
file
] [
log
] [
blame
]
#!/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
;