use Mail::Header;    
    my $header     = $pop->Head($i);
    my $parsedhead = Mail::Header->new($header);
    chomp( my $subject = $parsedhead->get('Subject') );
    print "Subject: $subject\n";
    chomp( my $from = $parsedhead->get('From') );
    print "From: $from\n";