#!/usr/bin/perl -w

use strict;
use HTTP::Proxy;
use HTTP::Recorder;


my $proxy = HTTP::Proxy->new;
my $agent = HTTP::Recorder->new;

$agent->file('session.pl');

$proxy->port(8080);
$proxy->agent($agent);
$proxy->start;