sub alert { print "Content-type: text/html\n\n"; print ""; }