#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $q = new CGI();
my $charset = "gb2312";
print $q->header(-type => 'text/html',
-charset => $charset
);
print q(
);
print q(Stuff);
print qq();
print "what be this?", "\272";
print "\n\nWhat the humma humma is this now :", 0x0272, ":
\n\n";
print $q->end_html();
exit;