简单的web客户机

和这个脚本 查看一个页面的修改时间 基本一样的

#!/usr/bin/perl
#一个简单的web客户机
use warnings;
use strict;
use IO::Socket;

my @urls=@ARGV;

foreach my $url (@urls){
$url =~ m|(http://)?(.*?)(:(\d+))?(/.*)|;
my $remote_host=$2;
my $remote_port=$4?$4:80;
my $uri=$5;
print "host:$remote_host\nport:$remote_port\nuri:$uri\n";
my $socket = IO::Socket::INET->new
( PeerAddr => $remote_host,PeerPort => $remote_port,Proto => 'tcp',Timeout => '10',Type => SOCK_STREAM,) or die "Connect to $remote_host:$remote_port  : $@\n";
print $socket "GET $uri HTTP/1.0\n\n";
my $response;
$response.= $_ while(<$socket>);
print $response;
close($socket);
}