#!/usr/bin/perl -w
use strict;
use CGI ':standard';

my ($oneaye,$twobee,$threesee,$fourdee,$fiveee);
my line;


print "Content-type: text/html\n\n";

open (PAGE, "$data")  or die "Can't open $data: $!";

while (<PAGE>) {

($oneaye,$twobee,$threesee,$fourdee,$fiveee) = split "\t",$line;
	
    unless ($threesee eq "") {
    print "three = $threesee<br>";
    print "four = $fourdee<br>";

  	}
}