Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

BOOK / HTTP-Proxy-0.03 / eg / proxy.pl 

            

              
1
2
3
4
5
6
7
8

              
#!/usr/bin/perl -w
use HTTP::Proxy;
use strict;
# a very simple proxy
my $proxy = HTTP::Proxy->new;
$proxy->verbose( shift || 0 );
$proxy->start;