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