#!/usr/bin/perl
use strict;
use warnings;
use URI;

my $uri = URI->new('ftp://asdf:bsfsf@127.0.0.1:21');

print "Scheme:   ", $uri->scheme(),
    "\nUser:     ", $uri->user(),
    "\nPassword: ", $uri->password(),
    "\nHost:     ", $uri->host(),
    "\nPort:     ", $uri->port(),
    "\nPath:     ", $uri->path(),
"\n";