#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Proxy qw(:log);
my $proxy = new HTTP::Proxy;
$proxy->port(8089);
$proxy->logfh(*STDOUT);
$proxy->logmask(ALL);
$proxy->start;

##</code><code>##

[09:59] *** Creating connection "passport@gryphonshafer.com"
[09:59] *** Disconnecting.
[09:59] *** Connecting to MSN as "passport@gryphonshafer.com", attempt #1.
[09:59] *** Failed to connect to MSN (10056).

##</code><code>##

[Mon Oct 13 10:00:26 2003] Forked child process -1320 
[Mon Oct 13 10:00:27 2003] (-1320) Request: CONNECT http://messenger.hotmail.com:1863
[Mon Oct 13 10:00:27 2003] (-1320) Response: 501 Not Implemented
[Mon Oct 13 10:00:27 2003] (-1320) Response: Content-Length: 46
[Mon Oct 13 10:00:27 2003] (-1320) Connection closed by the client 
[Mon Oct 13 10:00:27 2003] (-1320) Served 1 requests 
[Mon Oct 13 10:00:27 2003] Reaped child process -1320 
[Mon Oct 13 10:00:27 2003] Remaining kids:  
[Mon Oct 13 10:00:38 2003] Processed 1 connection(s)