Z-World: For Sale

#!/usr/bin/perl # `./log fs`; @item = split(/=/,$ENV{'QUERY_STRING'}); open(LIST,("../htdocs/forsale-lists/" . @item[1])); print "Content-type: text/html\n"; print "\n"; print "\n"; print "\n"; print "Z-World: For Sale - @item[1]\n"; print "\n"; print "\n"; print "

\n";

while () {
  if (/	#!/) {
    chop;
    @x = split(/	#!/);
   print @x[0],"\n";
  } else {
    print;
  }
}
print "

\n";