#!/usr/bin/perl require "cgi-lib.pl"; $myfile = "/home/simon/testfile"; if (&ReadParse) { &ReadParse(*input); system "echo $input{'site'} >> $myfile"; open (FP,"<$myfile"); @tp=; close FP; print &PrintHeader; print "Squid Block"; print "The current block list: "; print "

"; if (@tp) { print "

",@tp,"\n\n
"; } else { print "Not found!"; } } else { print &PrintHeader; print "Input site to block"; print "
Site to block: "; print "
"; } print &HtmlBot;