use URI::URL;
$url = new URI::URL 'http://www.perl.com/%Euser/gisle.gif';
# Retrieving Network location (netloc) components:
 $user     = $url->user;
 $password = $url->password;
 $host     = $url->host;
 $port     = $url->port;   # returns default if not defined