#! /usr/bin/perl
use CGI;
$cgi = new CGI;

$s = "x<=y, right?";
print $cgi->escapeHTML ($s) . "\n";	# encode for use as HTML text
print $cgi->escape ($s) . "\n";		# encode for use in a URL