sub urlencode{ my $URLencode=shift; $URLencode=~s/([^0-9A-Za-z_ \.\/:])/'%'.unpack('H2',$1)/ge; $URLencode=~s/\s/%20/g; return \$URLencode; }