open(DASH,">>view.htm"); 
print "Content-Type: text/html\n\n"; 
if ($used eq "") { 
print <<EndOfCoding;