#!/usr/bin/perl

use CGI qw(:all escape escapeHTML);
use URI::Escape;

$site = 'http://www.perlmonks.org/index.pl?node=';
$user = 'Clive ;-)'; # my test case for whitespace and funny chrs

print header,h1("compare");
print
     '<A HREF="',
     escapeHTML(uri_escape($site.$user)),
     '">',
     escapeHTML($user),
     '</A> - <tt>escapeHTML(uri_escape($site.$user))</tt><br>'; # doesn't work

print
     '<A HREF="',
     escapeHTML($site.escape($user)),
     '">',
     escapeHTML($user),
     '</A> - <tt>escapeHTML($site.escape($user))</tt><p>'; # works