#!/usr/bin/perl -w

use strict;
use lib 'lib', 'CGI-Carp-Throw/lib'; # IIS funiness

use CGI qw/:standard/;
use CGI::Carp::Throw qw/:carp_browser throw_browser_cloaked/;

print header(), start_html(-title => 'Throw test'), h2("something before zz");

throw_browser_cloaked("quick <b>and</b> easy");

print h1('some page'), end_html();