#!/usr/bin/perl -w use Carp; use CGI; my $query = new CGI; print $query->header(-expires => '-1d'); print <<"EOHTML"; EOHTML ; my ($oneaye,$twobee,$threesee,$fourdee,$fiveee); my line; open (PAGE, "$data") or die "Can't open $data: $!"; while () { ($oneaye,$twobee,$threesee,$fourdee,$fiveee) = split "\t",$line; unless ($threesee eq "") { print "three = $threesee
"; print "four = $fourdee
"; } } print $query->end_html;