#!perl
use strict;
use URI::Escape;
my $url = "https://www.cryptopia.co.nz/api/GetBalance";
print uri_escape($url)."\n";
print urlencode($url)."\n";

sub urlencode {
    my $s = shift;
    $s =~ s/ /+/g;
    $s =~ s/([^A-Za-z0-9\+-])/sprintf("%%%02X", ord($1))/seg;
    return $s;
}