#!/usr/bin/perl -w
###########################################
# isotest2.cgi
# Mike Schilli, 2007 (m@perlmeister.com)
###########################################
use strict;
use CGI qw(:all);

print header(
  -type    => 'text/html',
  -charset => 'utf-8');

binmode STDOUT, ":utf8";
print "The Euro sign is ",
      "\x{20AC}.\n";