use CGI qw/escape unescape/;

##</code><code>##

use strict;
use CGI qw/escape unescape/;

my $escval = escape('test script');

print "Escaped: $escval\n";

my $val = unescape($escval);

print "Unescaped: $val\n";


##</code><code>##

Escaped: test%20script
Unescaped: test script