Select Code to Download

sub url_encode {
my $rv = shift;
...
$rv =~ s/\%([a-f\d]{2})/ pack 'C', hex $1 /geix;
return $rv;
}

#!/usr/bin/perl

...
$rv =~ s/\%([a-f\d]{2})/ pack 'C', hex $1 /geix;
return $rv;
}