Re: Enviar correo por Perl y me da problemas
![Nota Nota](http://perlenespanol.com/foro/styles/prosilver/imageset/icon_post_target.gif)
Mira, empecemos por el principio:
Instalé unas actualizaciones y me pidió, que reiniciara, le dije que después, lo tuve que hacer para continuar la prueba.
Si te das cuenta hay unos mail que no se envían, creo que yo, que desean conectarse a poema-mujer.com, pero esta dirección no tiene mail, así que trato de enviar desde mi computadora.
Trato de correr el ejemplo que viene en la página o link que enviaste.
Me dice lo siguiente:
Y trato de ver la documentación, del error.
Instalo perl-doc
Busco la documentación
Al final instalo lo que me falta
Corro otra vez el envio de mail por perl y medice esto
LA CONTRASEÑA ES LA CORRECTA
Instalé unas actualizaciones y me pidió, que reiniciara, le dije que después, lo tuve que hacer para continuar la prueba.
Using text Syntax Highlighting
mrco1965@Local54:~$ sudo /usr/sbin/sendmail -q
mrco1965@Local54:~$ mail -s "Este es un mensaje de prueba desde local54" [email protected] < Php/Prueba/perl/GUERRAS.pl
mrco1965@Local54:~$ sudo mailq
-Queue ID- --Size-- ----Arrival Time---- -Sender/Recipient-------
9A316A3368 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
31EE1A334D 1547 Fri Jul 29 15:11:35 [email protected]
(connect to o.mx.mail.yahoo.com[66.94.237.139]:25: Connection refused)
[email protected]
7813CA3351 661 Fri Jul 29 13:45:13 [email protected]
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
7D681A335E 1547 Fri Jul 29 15:15:43 [email protected]
(delivery temporarily suspended: connect to f.mx.mail.yahoo.com[98.137.54.237]:25: Connection refused)
[email protected]
85F1BA3320 3506 Fri Jul 29 15:08:04 MAILER-DAEMON
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
85F8EA332A 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
8CE4CA32F7 661 Fri Jul 29 14:45:13 [email protected]
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
8B03CA332C 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
8DB91A3366 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
48496A3343 678 Fri Jul 29 13:45:03 [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
5CCA2A3355 3592 Fri Jul 29 15:13:26 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
5D0B3A3322 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
A1BD1A32FF 1547 Fri Jul 29 12:03:07 [email protected]
(connect to k.mx.mail.yahoo.com[98.139.54.60]:25: Connection refused)
[email protected]
A7C7FA333A 1547 Fri Jul 29 12:03:44 [email protected]
(connect to m.mx.mail.yahoo.com[66.94.238.147]:25: Connection refused)
[email protected]
CD07DA333C 490 Fri Jul 29 13:45:28 [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
CDBC4A32EF 443 Fri Jul 29 13:40:32 [email protected]
(connect to f.mx.mail.yahoo.com[98.137.54.237]:25: Connection refused)
[email protected]
F2499A32FD 661 Fri Jul 29 12:45:13 [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
68655A3345 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
676FBA3328 2366 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
6C67DA333F 3506 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
6F2A7A32EB 3407 Fri Jul 29 14:59:02 [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
-- 51 Kbytes in 21 Requests.
mrco1965@Local54:~$ mail -s "Este es un mensaje de prueba desde local54" [email protected] < Php/Prueba/perl/GUERRAS.pl
mrco1965@Local54:~$ sudo mailq
-Queue ID- --Size-- ----Arrival Time---- -Sender/Recipient-------
9A316A3368 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
31EE1A334D 1547 Fri Jul 29 15:11:35 [email protected]
(connect to o.mx.mail.yahoo.com[66.94.237.139]:25: Connection refused)
[email protected]
7813CA3351 661 Fri Jul 29 13:45:13 [email protected]
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
7D681A335E 1547 Fri Jul 29 15:15:43 [email protected]
(delivery temporarily suspended: connect to f.mx.mail.yahoo.com[98.137.54.237]:25: Connection refused)
[email protected]
85F1BA3320 3506 Fri Jul 29 15:08:04 MAILER-DAEMON
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
85F8EA332A 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
8CE4CA32F7 661 Fri Jul 29 14:45:13 [email protected]
(connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
8B03CA332C 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
8DB91A3366 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
48496A3343 678 Fri Jul 29 13:45:03 [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
5CCA2A3355 3592 Fri Jul 29 15:13:26 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
5D0B3A3322 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
A1BD1A32FF 1547 Fri Jul 29 12:03:07 [email protected]
(connect to k.mx.mail.yahoo.com[98.139.54.60]:25: Connection refused)
[email protected]
A7C7FA333A 1547 Fri Jul 29 12:03:44 [email protected]
(connect to m.mx.mail.yahoo.com[66.94.238.147]:25: Connection refused)
[email protected]
CD07DA333C 490 Fri Jul 29 13:45:28 [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
CDBC4A32EF 443 Fri Jul 29 13:40:32 [email protected]
(connect to f.mx.mail.yahoo.com[98.137.54.237]:25: Connection refused)
[email protected]
F2499A32FD 661 Fri Jul 29 12:45:13 [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
68655A3345 3592 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
676FBA3328 2366 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
6C67DA333F 3506 Fri Jul 29 15:08:04 MAILER-DAEMON
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
6F2A7A32EB 3407 Fri Jul 29 14:59:02 [email protected]
(delivery temporarily suspended: connect to poema-mujer.com[200.52.83.51]:25: Connection refused)
[email protected]
-- 51 Kbytes in 21 Requests.
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Si te das cuenta hay unos mail que no se envían, creo que yo, que desean conectarse a poema-mujer.com, pero esta dirección no tiene mail, así que trato de enviar desde mi computadora.
Using text Syntax Highlighting
mrco1965@Local54:~$ sudo /usr/sbin/sendmail -q
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Trato de correr el ejemplo que viene en la página o link que enviaste.
Me dice lo siguiente:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use Email::Send::SMTP::Gmail;
- my $mail=Email::Send::SMTP::Gmail->new(
- -smtp=>'gmail.com',
- -pass=>'*************',
- );
- $mail->send(
- -subject=>'Hello!',
- -verbose=>'1',
- -body=>'Just testing it',
- # -attachments=>'full_path_to_file',
- );
- $mail->bye;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Y trato de ver la documentación, del error.
Using text Syntax Highlighting
Can't locate Email/Send/SMTP/Gmail.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at Php/Prueba/perl/Prueba-15-3.pl line 2.
BEGIN failed--compilation aborted at Php/Prueba/perl/Prueba-15-3.pl line 2.
mrco1965@Local54:~$ perldoc Email::Send::SMTP::Gmail
You need to install the perl-doc package to use this program.
BEGIN failed--compilation aborted at Php/Prueba/perl/Prueba-15-3.pl line 2.
mrco1965@Local54:~$ perldoc Email::Send::SMTP::Gmail
You need to install the perl-doc package to use this program.
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Instalo perl-doc
Using text Syntax Highlighting
mrco1965@Local54:~$ sudo apt-get install perl-doc
Leyendo lista de paquetes... Hecho
Creando árbol de dependencias
Leyendo la información de estado... Hecho
Paquetes sugeridos:
groff
Se instalarán los siguientes paquetes NUEVOS:
perl-doc
0 actualizados, 1 se instalarán, 0 para eliminar y 0 no actualizados.
Necesito descargar 7198kB de archivos.
Se utilizarán 13.5MB de espacio de disco adicional después de esta operación.
Des:1 http://mx.archive.ubuntu.com/ubuntu/ lucid-updates/main perl-doc 5.10.1-8ubuntu2.1 [7198kB]
Descargados 7198kB en 1min 53s (63.6kB/s)
Seleccionando el paquete perl-doc previamente no seleccionado.
(Leyendo la base de datos ... 00%
185236 ficheros y directorios instalados actualmente.)
Desempaquetando perl-doc (de .../perl-doc_5.10.1-8ubuntu2.1_all.deb) ...
Añadiendo `diversion of /usr/bin/perldoc to /usr/bin/perldoc.stub by perl-doc'
Procesando disparadores para man-db ...
Configurando perl-doc (5.10.1-8ubuntu2.1) ...
Leyendo lista de paquetes... Hecho
Creando árbol de dependencias
Leyendo la información de estado... Hecho
Paquetes sugeridos:
groff
Se instalarán los siguientes paquetes NUEVOS:
perl-doc
0 actualizados, 1 se instalarán, 0 para eliminar y 0 no actualizados.
Necesito descargar 7198kB de archivos.
Se utilizarán 13.5MB de espacio de disco adicional después de esta operación.
Des:1 http://mx.archive.ubuntu.com/ubuntu/ lucid-updates/main perl-doc 5.10.1-8ubuntu2.1 [7198kB]
Descargados 7198kB en 1min 53s (63.6kB/s)
Seleccionando el paquete perl-doc previamente no seleccionado.
(Leyendo la base de datos ... 00%
185236 ficheros y directorios instalados actualmente.)
Desempaquetando perl-doc (de .../perl-doc_5.10.1-8ubuntu2.1_all.deb) ...
Añadiendo `diversion of /usr/bin/perldoc to /usr/bin/perldoc.stub by perl-doc'
Procesando disparadores para man-db ...
Configurando perl-doc (5.10.1-8ubuntu2.1) ...
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Busco la documentación
Using text Syntax Highlighting
mrco1965@Local54:~$ perldoc Email::Send::SMTP::Gmail
No documentation found for "Email::Send::SMTP::Gmail".
No documentation found for "Email::Send::SMTP::Gmail".
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Al final instalo lo que me falta
Using text Syntax Highlighting
mrco1965@Local54:~$ sudo cpanp install Email::Send::SMTP::Gmail
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
Installing Email::Send::SMTP::Gmail (0.22)
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Email-Send-SMTP-Gmail-0.22/Makefile.PL INSTALLDIRS=site]...
Argument "6.55_02" isn't numeric in numeric ge (>=) at /home/mrco1965/.cpanplus/5.10.1/build/Email-Send-SMTP-Gmail-0.22/Makefile.PL line 5.
Checking if your kit is complete...
Looks good
Warning: prerequisite Net::SMTP::SSL 0 not found.
Warning: prerequisite Net::SMTP_auth 0 not found.
Writing Makefile for Email::Send::SMTP::Gmail
Module 'Email::Send::SMTP::Gmail' requires 'Net::SMTP::SSL' to be installed
If you don't wish to see this question anymore
you can disable it by entering the following commands on the prompt:
's conf prereqs 1; s save'
1> Yes
2> No
3> Yes to all (for this module)
4> No to all (for this module)
Should I install this module? [1]:
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Net-SMTP-SSL-1.01/Makefile.PL INSTALLDIRS=site]...
Checking if your kit is complete...
Looks good
Writing Makefile for Net::SMTP::SSL
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/test.t .. ok
All tests successful.
Files=1, Tests=1, 0 wallclock secs ( 0.00 usr 0.02 sys + 0.09 cusr 0.01 csys = 0.12 CPU)
Result: PASS
Module 'Email::Send::SMTP::Gmail' requires 'Net::SMTP_auth' to be installed
If you don't wish to see this question anymore
you can disable it by entering the following commands on the prompt:
's conf prereqs 1; s save'
1> Yes
2> No
3> Yes to all (for this module)
4> No to all (for this module)
Should I install this module? [1]:
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Net-SMTP_auth-0.08/Makefile.PL INSTALLDIRS=site]...
Checking if your kit is complete...
Looks good
Writing Makefile for Net::SMTP_auth
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl
1..1
ok 1
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
# Testing Email::Send::SMTP::Gmail 0.22, Perl 5.010001, /usr/bin/perl
t/00-load.t ....... ok
t/manifest.t ...... skipped: Author tests not required for installation
t/pod-coverage.t .. skipped: Test::Pod::Coverage 1.08 required for testing POD coverage
t/pod.t ........... skipped: Test::Pod 1.22 required for testing POD
All tests successful.
Files=4, Tests=1, 1 wallclock secs ( 0.02 usr 0.01 sys + 0.11 cusr 0.04 csys = 0.18 CPU)
Result: PASS
*** Install log written to:
/home/mrco1965/.cpanplus/install-logs/Email-Send-SMTP-Gmail-0.22-1311971541.log
Module 'Email::Send::SMTP::Gmail' installed successfully
No errors installing all modules
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
[MSG] No '/home/mrco1965/.cpanplus/custom-sources' dir, skipping custom sources
Installing Email::Send::SMTP::Gmail (0.22)
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Email-Send-SMTP-Gmail-0.22/Makefile.PL INSTALLDIRS=site]...
Argument "6.55_02" isn't numeric in numeric ge (>=) at /home/mrco1965/.cpanplus/5.10.1/build/Email-Send-SMTP-Gmail-0.22/Makefile.PL line 5.
Checking if your kit is complete...
Looks good
Warning: prerequisite Net::SMTP::SSL 0 not found.
Warning: prerequisite Net::SMTP_auth 0 not found.
Writing Makefile for Email::Send::SMTP::Gmail
Module 'Email::Send::SMTP::Gmail' requires 'Net::SMTP::SSL' to be installed
If you don't wish to see this question anymore
you can disable it by entering the following commands on the prompt:
's conf prereqs 1; s save'
1> Yes
2> No
3> Yes to all (for this module)
4> No to all (for this module)
Should I install this module? [1]:
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Net-SMTP-SSL-1.01/Makefile.PL INSTALLDIRS=site]...
Checking if your kit is complete...
Looks good
Writing Makefile for Net::SMTP::SSL
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/test.t .. ok
All tests successful.
Files=1, Tests=1, 0 wallclock secs ( 0.00 usr 0.02 sys + 0.09 cusr 0.01 csys = 0.12 CPU)
Result: PASS
Module 'Email::Send::SMTP::Gmail' requires 'Net::SMTP_auth' to be installed
If you don't wish to see this question anymore
you can disable it by entering the following commands on the prompt:
's conf prereqs 1; s save'
1> Yes
2> No
3> Yes to all (for this module)
4> No to all (for this module)
Should I install this module? [1]:
Running [/usr/bin/perl /usr/bin/cpanp-run-perl /home/mrco1965/.cpanplus/5.10.1/build/Net-SMTP_auth-0.08/Makefile.PL INSTALLDIRS=site]...
Checking if your kit is complete...
Looks good
Writing Makefile for Net::SMTP_auth
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl
1..1
ok 1
Running [/usr/bin/make test]...
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
# Testing Email::Send::SMTP::Gmail 0.22, Perl 5.010001, /usr/bin/perl
t/00-load.t ....... ok
t/manifest.t ...... skipped: Author tests not required for installation
t/pod-coverage.t .. skipped: Test::Pod::Coverage 1.08 required for testing POD coverage
t/pod.t ........... skipped: Test::Pod 1.22 required for testing POD
All tests successful.
Files=4, Tests=1, 1 wallclock secs ( 0.02 usr 0.01 sys + 0.11 cusr 0.04 csys = 0.18 CPU)
Result: PASS
*** Install log written to:
/home/mrco1965/.cpanplus/install-logs/Email-Send-SMTP-Gmail-0.22-1311971541.log
Module 'Email::Send::SMTP::Gmail' installed successfully
No errors installing all modules
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Corro otra vez el envio de mail por perl y medice esto
Using text Syntax Highlighting
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
^[[5~Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ sudo cpanp install Email::Send::SMTP::Gmail
Installing Email::Send::SMTP::Gmail (0.22)
*** Install log written to:
/home/mrco1965/.cpanplus/install-logs/Email-Send-SMTP-Gmail-0.22-1311971769.log
Module 'Email::Send::SMTP::Gmail' installed successfully
No errors installing all modules
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$
^[[5~Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$ sudo cpanp install Email::Send::SMTP::Gmail
Installing Email::Send::SMTP::Gmail (0.22)
*** Install log written to:
/home/mrco1965/.cpanplus/install-logs/Email-Send-SMTP-Gmail-0.22-1311971769.log
Module 'Email::Send::SMTP::Gmail' installed successfully
No errors installing all modules
mrco1965@Local54:~$ perl Php/Prueba/perl/Prueba-15-3.pl
Authentication (SMTP) failed
mrco1965@Local54:~$
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
LA CONTRASEÑA ES LA CORRECTA