use strict;
use CGI qw/escape unescape/;

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

print "Escaped: $escval\n";

my $val = unescape($escval);

print "Unescaped: $val\n";