Using perl Syntax Highlighting
- #!/usr/bin/perl -w
- use Net::POP3;
- use strict;
- my $username = "data\@server.com";
- my $password = "pass";
- my $pop3conn = Net::POP3->new("mail.server.com", timeout =>30);
- my $nummsgs = $pop3conn->login($username,$password);
- my ($messages,$size) = $pop3conn->popstat();
- print "There are $messages messages totaling $size bytes\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Creo que el problema era "data\@server.com"; que estoy escapando el @