uriparse.pl

#!/usr/bin/perl

use strict;
use warnings;

use URI;

my $uri = URI->new('http://microformats.org:80/wiki/index.php?title=url-formats#Why');

print 'scheme: ',       $uri->scheme,       "\n";
print 'opaque: ',       $uri->opaque,       "\n";
print 'host_port: ',    $uri->host_port,    "\n";
print 'host: ',         $uri->host,         "\n";
print 'port: ',         $uri->port,         "\n";
print 'path: ',         $uri->path,         "\n";
print 'fragment: ',     $uri->fragment,     "\n";

print 'authority: ',    $uri->authority,    "\n";
print 'query: ',        $uri->query,        "\n";