Select Code to Download

main::(geemail.pl:15):  my $port      ='995';
  DB<2>
main::(geemail.pl:17):  my $pop = new Mail::POP3Client(
...
        IO::Socket::IP::new('IO::Socket::SSL', 'PeerAddr', 'pop.gmail.
+com', 'PeerPort', 995, 'Proto', 'tcp', 'Type', 1, ...) called at C:/s
+trawberry/perl/site/l
ib/Mail/POP3Client.pm line 376
        Mail::POP3Client::Connect('Mail::POP3Client=HASH(0x3b8f088)') 
+called at C:/strawberry/perl/site/lib/Mail/POP3Client.pm line 79

  DB<2> l
26==>   if (($pop->Count()) < 1)
...
  DB<2> p $pop->Count()
320
  DB<3>