1use HTTP::Proxy;
2use HTTP::Proxy::BodyFilter::save;
3
4my $proxy = HTTP::Proxy->new(@ARGV);
5
6# save RFC files as we browse them
7$proxy->push_filter(
8    path => qr!/rfc\d+.txt!,
9    mime => 'text/plain',
10    response => HTTP::Proxy::BodyFilter::save->new(
11        template => '%f',
12        prefix   => 'rfc',
13        multiple => 0,
14        keep_old => 1,
15    )
16);
17
18$proxy->start;
19
20