# ***************************************

# This function encode a string.

sub urlencode {

my $package = shift;

my ($str) = shift;

$str =~ s/([W])/"%".uc(sprintf("%2.2x",ord($1)))/eg;

return $str;

}