Simulate the AT&T network

truncating_proxy.pl

use strict;
use warnings;

use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
use HTTP::Proxy::BodyFilter::complete;

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

$proxy->push_filter(
    mime => 'image/jpeg',
    response => HTTP::Proxy::BodyFilter::complete->new,
    response => HTTP::Proxy::BodyFilter::simple->new(
        sub {
            my ($self, $dataref, $message, $protocol, $buffer) = @_;

            if (length ${$dataref} > 0)
            {
                ${$dataref} = substr ${$dataref}, 0, (length(${$dataref}) / 2);
            }
        }));

$proxy->start;