#!/usr/bin/perl -w
use CGI;
my $cgi = new CGI;
my $string = 
 ' This has many funny chars: \n <angle> a=3.5! a;b - Go -> 2 "a" .';

print 
  $cgi->header,
  $cgi->start_html;

print 
  "A string with some funny characters :<br>\n",
  "<table border=1><tr><td><pre>\n",
  $cgi->escapeHTML($string),
  "</pre></td></tr></table><p>\n";

print 
  "It would look like this in a url:<br>\n",
  "<table border=1><tr><td><pre>\n",
  $cgi->escapeHTML( $cgi->escape($string) ),
  "</pre></td></tr></table><p>\n";

print 
  "And here's what it looks like as html:<br>\n",
  "<table border=1><tr><td><pre>\n",
  $cgi->escapeHTML( $cgi->escapeHTML($string) ),
  "</pre></td></tr></table><p>\n";

print 
  "<p> (Are we having fun yet? )\n";

print 
  $cgi->end_html;