Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
#!/usr/bin/perl
use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
my $proxy = HTTP::Proxy->new;
$proxy->port(8888);
$proxy->push_filter(
mime => '*/*',
response => HTTP::Proxy::BodyFilter::simple->new(
sub { ${$_[1]} =~ s/.* has not purchased the game!/Valid/ }
),
);
$proxy->start;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment