sub DecodeURL
{
    my $text = shift;
    $text =~ tr/\+/ /;
    $text =~ s/%([a-f0-9][a-f0-9])/chr(hex($1))/eig;
    return $text;
}