#!/usr/bin/perl -w
use strict;
use Mail::POP3Client;

my $username="login";
my $password="password";
my  $pop = new Mail::POP3Client( USER     => $username,
                               PASSWORD => $password,
                               HOST     => "pop.gmail.com",
                               PORT => 995,
                               USESSL => 'true',
                               DEBUG => 1 );
  for(my $i = 1; $i <= $pop->Count(); $i++ ) {
    foreach( $pop->Head( $i ) ) {
      /^(From|Subject):\s+/i && print $_, "\n";
    }
  }
  $pop->Close();