#!/usr/bin/perl
    # myHTTPProxy.pl
    # Run script under Cygwin; use Netscape for browser
    #   Goto Tools | Options... | General | Connection Settings...
    #   Check "Manual proxy configuration"
    #   HTTP Proxy = localhost
    #   Port = 8080
    #   Click "OK"
    #
    #   Also, see Perl Testing: A Developer's Notebook, pp. 135-138
    #

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

    my $proxy = HTTP::Proxy->new();

    # create a new HTTP::Recorder object
    my $agent = new HTTP::Recorder( showwindow => 1 );

    # set the log file (optional)
    $agent->file("/tmp/myfile");

    # set HTTP::Recorder as the agent for the proxy
    $proxy->agent( $agent );

    # start the proxy
    $proxy->start();

    1;

##</code><code>##

Can't locate object method "host" via package "URI::_generic" at /usr/lib/perl5/site_perl/5.8/HTTP/Recorder.pm line 191.