#!/usr/bin/perl -w
use strict;

my $special ="/path/special.txt";
my ($P_N,$N__B,$N__G,$dry,$my,$by,$Dad,$gyrate,$curd);
my $count;

print "Content-type: text/html\n\n";
open (PAGE, "$special")  or die "Can't open $special: $!";
flock (PAGE, 1) or die "Can't lock $special for reading";
while (defined (my $line = <PAGE>)) {print "$line<br>";
	$count++;
	$line = chomp ($line);
	($P_N,$N__B,$N__G,$dry,$my,$by,$Dad,$gyrate,$curd) = split "\t",$line;

}

	print "$P_N,$N__B,$N__G,$dry,$my,$by,$Dad,$gyrate,$curd";