#!/usr/bin/perl -w #use strict; use CGI::Carp "fatalsToBrowser"; use CGI; use POSIX qw(ceil floor); use Cwd; use Template; use File::Basename; # Write output immediately $|=1; my $query=new CGI; my $form=new CGI; use XML::XSLT; print < HTML use Encode 'is_utf8'; my $u_temp = "Temperature:350\x{00B0}F html:°"; #print 'Is string utf8?[' . utf8::is_utf8($u_temp) . ']
'; print is_utf8($u_temp) ? 1 : 0, "
"; print $u_temp . '
'; my $price_label = "Price:\x{20AC}9.99"; print $price_label . '
'; my $smiley = "Smiley:\x{263a}"; print $smiley . '
'; my $french_word = "Some French Word: Saut\x{00E9} html:é"; print $french_word . '
'; print '