#!/usr/local/bin/perl -w
###########################################
# proxy-logger - A simple logging proxy
# Mike Schilli, 2012 (m@perlmeister.com)
###########################################
use strict;
use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;

my $proxy = HTTP::Proxy->new( 
    host => "192.168.1.123", 
    port => 9999 );

$proxy->push_filter(
  request => 
    HTTP::Proxy::HeaderFilter::simple->new(
      sub { 
        my( $self ) = @_;  
        print $self->proxy->request->uri(), 
              "\n";
      }
    )
);

$proxy->start;