#!/usr/bin/env perl
use strict;
use warnings;
use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;

$|++; # no buffering on STDOUT please

my $proxy = HTTP::Proxy->new(@ARGV);
$proxy->push_filter(
   request => HTTP::Proxy::HeaderFilter::simple->new(
      sub { print {*STDOUT} $_[2]->uri(), "\n" }
   )
);
$proxy->start();