#!/usr/local/bin/perl $intab= "data.txt"; $IN= $ENV{'PATH_INFO'}; ($junk,$junk,$ID) = split(/\//,$IN); ($ID, $junk) = split(/\./,$ID); print "Content-type: text/html\n\n"; print < Test EOF print "IN: $IN

\n"; $ID = uc($ID); print "$ID

\n"; open(TSF, "$intab") || die "Can't Open $intab $!"; while() { chop($_); ($ti,$id,$au) = split(/\t/); print "$id

\n"; if ($id eq $ID) { print "$ti \n"; print "\n"; print "\n"; exit 1; } }