1234567891011121314
#!/usr/bin/perluse 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";