use Net::POP3;
use Net::POP3::SSLWrapper;
 pop3s{$pop3=Net::POP3->new('pop.gmail.com',Port=>995,Debug=>1) or die "no pop\n";
 if ($pop3->login('anmaat@gmail.com','******',)>0){
 $msgs = $pop3->list;
 foreach $mes(keys %$msgs){
 $top=$pop3->top($mes);
 $bo = $pop3->get($mes);
  foreach(@$top){
 if($_=~/^(From|Subject)/){ print $_;}
                 }
   $pop3->delete($mes);
                          }
 $pop3->quit;
															}
    }