6 lines
103 B
Perl
6 lines
103 B
Perl
use 5.10.0;
|
|
use CGI;
|
|
|
|
my $s = 'http://foo/bar/';
|
|
say $s = CGI::escape($s);
|
|
say $s = CGI::unescape($s);
|