sub ClearForm { @filelist = glob("C:/Program Files/Apache Group/Apache2/htdocs/frames/*.jpg"); unlink @filelist; print "
\n"; &PrintForm; }