#Get and process mail for my $messageID (1 .. $numofmail){my $MFH = $pop3server->getfh($messageID); my $text = '';
Indent those two :)
$text .= $_ while <$MFH>;
my ($price) = $text =~ m/Price\:(.*)/;
} #Exit exit();
Why do you call exit here? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
