HTTP Message capture

wwwget.pl

#!/usr/bin/env perl
use strict;
use warnings;
use IO::Socket;
use Time::HiRes qw[gettimeofday tv_interval];
my $time=[gettimeofday()];
unless(@ARGV>1) {
	die "usage: $0 host port [document+]\n";
}

my $host=shift(@ARGV);
my $port=shift(@ARGV);
foreach my $document (@ARGV) {
	my $remote=IO::Socket::INET->new(
		Proto=>"tcp", 
		PeerAddr=>$host, 
		PeerPort=>$port, 
	);

	unless($remote) {
		die "cannot connect to http daemon on $host\n";
	}

	$remote->autoflush(1);
	print $remote "GET $document HTTP/1.0\n\n";
	while(<$remote>) { print }
	print "\n\nelapsed time: ". elapsed_time($time)."\n";
	close $remote;
}

exit;

sub elapsed_time {
	my $time=shift;
	return tv_interval($time)*1000;
}