use strict; 
my $url         = "http://www.foo.bar/blort/quux.html";
my $req         = HTTP::Request->new(HEAD=>$url);
my $ua          = LWP::UserAgent->new;
my $resp        = $ua->request($req);
my $type        = $resp->header('Content-Type');
my $status_line = $resp->status_line;

##</code><code>##

use strict; 
my $url         = "http://www.foo.bar/blort/quux.html";
my $safeurl     = uri_escape($url);
my $newurl      = uri_unescape($safeurl);

print "URL.....: $url\n";
print "Safe URL: $safeurl\n";
print "New URL.: $newurl\n";