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, но когда я пытаюсь проверить строкуЭто не работает