Remote PHP in PERL

#!/usr/bin/perl
use IO::Socket;
use IO::Select;
use Socket;


my $url1 = ("http://URL_DOMAIN_KAMU/php1.php");
my $status1 = query($url1);

my $url2 = ("http://URL_DOMAIN_KAMU/php2.php");
my $status2 = query($url2);

my $url3 = ("http://URL_DOMAIN_KAMU/php3.php");
my $status3 = query($url3);

my $url4 = ("http://URL_DOMAIN_KAMU/php4.php");
my $status4 = query($url4);

sub query($) {
    my $url = $_[0];
    $url =~ s/http:\/\///;
    my $host  = $url;
    my $query = $url;
    my $page  = "";
    $host  =~ s/href=\"?http:\/\///;
    $host  =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    $query =~ s/$host//;
    if ( $query eq "" ) { $query = "/"; }
    eval {
        my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;
        print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
        my @r = <$sock>;
        $page = "@r";
        close($sock);
    };
    return $page;
}