for (my $i=1; $i<=$messages; $i++){
	foreach($pop->Head($i)){
		if($_=~/^From:[^<>]*\<(.*)\>/){
			$emails[$i]->{'from'}=$1;
		}
		if($_=~/^Subject:(.*)/){
			$emails[$i]->{'subject'}=$1;
		}
	}
	my $headAndBody=$pop->HeadAndBody($i);
	my $email=Email::MIME->new($headAndBody);
	my @parts=$email->parts();
	my $body=$email->body();
	print $body."\n\n";
 	$emails[$i]->{'body'}=$body;
}