#!c:\perl\bin
use Net::POP3;
use MIME::Parser ;

my $parser = new MIME::Parser;
my $pophost = myhost';  # Name or IP address of POP3 server
my $popuser = myusr;   # Account name on POP3 server
my $poppass = mypass;  # Password for account

my ($item,$message,$line);
my $pop = Net::POP3->new($pophost) or die "$!\n";
my $message_list = $pop->list;
    if ($pop->login($popuser, $poppass) > 0) {
      my $msgnums = $pop->list; # hashref of msgnum => size
      foreach my $msgnum (keys %$msgnums) {
        my $msg = $pop->get($msgnum);
     
     	  ##Comment 1
        #$fname = $msgnum.".txt";
        #open(MAIL,">$fname");
  		  #print MAIL @$msg; 
        #close MAIL;
			 
			 ##Comment2
			 #$parser->output_dir("/tmp");
			 #$parser->output_prefix("msg");
			 #$parser->output_to_core(1);
			 my $entity = $parser->parse(@$msg);
			
        ##Comment3
        #$pop->delete($msgnum);
      }
    }
$pop->quit;