Perl Tell A Friend Script. I Need To Know

[liunx]

I have installed a Perl "tell a Friend Script" located here: <a href="http://www.hungryhoundbakery.com" target="_blank">My Webpage</a><br />After you fil out the form, it goes to a white screen. Do you know WHAT code I need to use to have the window Close upon hitting SUBMIT? or even showing something Like "successful" on the same screen.<br /><br /><br /><br /><!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1--><script language="JavaScript" type="text/JavaScript"><br /><!--<br />function MM_findObj(n, d) { //v4.01<br /> 鐖抋r p,i,x; 鐖刦(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {<br /> ?鐕