use URI;
my $u = URI->new("http://foo.example.org/");
say $u->scheme;
__END__
http