sub ClearForm {
@filelist = glob("C:/Program Files/Apache Group/Apache2/htdocs/frames/*.jpg");
unlink @filelist;
print "<center><h2>All old frames have been deleted</h2></center><p>\n";
&PrintForm;

}