sub print_frameset { $script_name = $q->script_name; $query_string = $q->query_string; print <$TITLE EOF ; exit 0; }