Pb avec gmail et use Net::POP3

Bonjour
j'essaie de récupérer mes mail sous mon compte gmail (j'ai activé le
transfert pop dans les préférences du compte) à l'aide d'un script pl

<debut script>
#!/usr/bin/perl -w


use Net::POP3;
use Net::SMTP;

$pop = Net::POP3->new('pop.gmail.com')
or die "ne peut me connecter au serveur POP pop.gmail.com\n";

$get = pop->get(1, FH) if $pop->login('login', 'password') > 0;

<end script>

mais cela ne marche pas :
>ne peut me connecter au serveur POP pop.gmail.com

Qu'est ce que je fais de mal
Merci