print $query->header;
print $query->start_html(-title=>'Connected to the NET', -name=>'connected');
print "<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0\" width=\"400\" height=\"300\">\n";
print "  <param name=movie value=\"connecting.swf\">\n";
print "  <param name=quality value=high>\n";
print "  <embed src=\"connecting.swf\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"400\" height=\"300\">\n";
print "  </embed>\n";
print "  </object>\n";