Select Code to Download

use URI;

my $uri = new URI ($some_uri);

my($scheme, $authority, $path, $query, $fragment) =
$uri =~ m|^(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(
+.*))?|;