尝试使用用户代理进行连接时，URI主机和路径不起作用

Question

    use URI;
use File::Basename;
use LWP::UserAgent;



$link = "http://127.0.0.1:8080/h.php";

my $url = URI->new("$link");

print "Host: ", $url->scheme( ),"://",$url->host( ), "\n";
print "Path: ", $url->path( ), "\n";
print "Query: ", $url->query( ), "\n";

$path = $url->path( );
$link1 = $url->host( );
$query = $url->query( );
my($filename, $directories) = fileparse($path);
print "Filename  : " . $filename    . "\n";
print "Directory : " . $directories . "\n";

$ua = LWP::UserAgent->new(keep_alive => 1);
$ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31");
$ua->timeout (8);

    my $checar1 = $ua->get("http://$link1$directories/h.php")->content;
if ($checar1 =~ /new file/){
print "http://$link1$directories/h.php ok";
}else{
print "Not found";
}

我已经尝试过使用此脚本来分隔URL部分并重新格式化相同的URL并进行检查，但是每次到达时都会检查出错误，我尝试打印$link1$directories/h.php，但是当我尝试检查字符串时不工作