#!/usr/bin/perl if ($ENV{"QUERY_STRING"} eq "2") { $mimetype = "text/html"; $textbit1 = "this page conforms to xhtml 1.1, except that it is served with the incorrect mime-type of text/html. this link opens correctly in a new window. if the correct mime-type of application/xhtml+xml is served, safari 1.1 [or 1.2] will crash."; } else { $mimetype = "application/xhtml+xml"; $textbit1 = "this page conforms to xhtml 1.1, including serving the correct mime-type of application/xhtml+xml. this link should open in a new window, but instead crashes safari 1.1 [or 1.2]. if the incorrect mime-type of text/html is served, safari treats the page as standard html and opens the link without a problem."; } print < new win test

$textbit1

EOF