即席proxy

#!/usr/bin/perl
use strict;
use warnings;

use HTTP::Daemon;
use LWP::UserAgent;

my $d = HTTP::Daemon->new(
    LocalPort => 3000,
) or die $!;
while (my $c = $d->accept) {
    while (my $request = $c->get_request) {
warn $request->as_string;
        my $ua = LWP::UserAgent->new;
        my $response = $ua->request($request);
warn $response->as_string;
        $c->send_response($response);
    }
    $c->close;
    undef $c;
}

こんなん書いて

http_proxy="localhost:3000" wget http://d.hatena.ne.jp/lopno/

とかすると何しゃべってるかわかる。perlってべんりだわぁ