Hi monks

I am getting output "ERROR: Unable to connect" in below code.

Please let me know where is the problem

use Net::POP3;

    # Constructors
    #$pop = Net::POP3->new('pop.gmail.com');
    $pop = Net::POP3->new('pop.gmail.com', ResvPort => 995, Timeout =>
+ 30, Debug => 1) or die("ERROR: Unable to connect.\n");
    $username="sssssss";
    $password="sssssss";
    print $pop;
    if ($pop->login($username, $password) > 0) {
      my $msgnums = $pop->list; # hashref of msgnum => size
      foreach my $msgnum (keys %$msgnums) {
        my $msg = $pop->get($msgnum);
        print @$msg;
      }
    }

    $pop->quit;
[download]