URLENCODE sub function in PERL

This is how you do the url encoding in PERL, a useful function in PHP to encode URL string. 

#!/usr/bin/perl

sub urlencode
{
  my ($url) = @_;

  $url =~ s/([^A-Za-z0-9_.-])/sprintf("%%%02X", ord($1))/seg;
  return $url;
}


1;