#!/usr/bin/perl

use URI;

my $u1 = URI->new("http://www.simplymapped.com/service/geocode/json.smd");

print $u1->scheme(), "\n";
print $u1->authority(), "\n";
print $u1->opaque(), "\n";
print $u1->path(), "\n";
print $u1->fragment(), "\n";