I would try altering your loop and rewrite it like so:
#!/usr/bin/perl
require("cgi-lib.pl");
print "Content-type: text/html\n\n";
$header = "/usr/home/m/ma/mayline/mayline.com/testnav.html";
unless(open(DAT, "../pricelist.db")) {
die, "Cannot Open File: pricelist.db" };
@data = <DAT>;
close(DAT);
print "<html><head><title>Search Results</title>";
print `cat $header`;
print "<font size=-1 color=\"black\">\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
chomp($buffer);
($text, $info) = split(/=/,$buffer);
foreach $Line(@data) {
chomp $Line;
my ($product, $page) = split(/,/,$Line);
if ($product eq $info) {
print "Part number $product found on page $page.<br>\n";
print "<a
href=\"http://www.mayline.com/pricebookpdf/2001pricebook.pdf\#$page\&zoom=100\";>
Click here</a> to view the page.<br><br>\n";
print "</font></body></html>\n";
exit;
}
}
print "Cannot find record\n";
print "</font></body></html>\n";
exit(0);
__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
