#!/usr/bin/perl open(SISSE, "salad2.txt"); @read=; close(SISSE); print "Content-type: text/html\n\n"; print " Modifying keywords \n \n"; print "
\n"; print "
Old keyword New keyword"; foreach $rida(@read){ ($eel, $kesk, $siht)=split(/=/, $rida); #chop($siht); print " \n"; if(substr($rida, 0, 1) eq "x"){ print "
", $kesk, "
"; } else {print "";} print "\n"; } print "
\n"; print "
\n \n";