... but i don't see any way to slow it down

I once had a similar requirement (not LWP, but X11 connections, though).  For this, I simply sent the data through a bidirectional proxy (implemented with IO::Socket and IO::Select), and inserted delays as appropriate. I.e., the inner loop shoveling the data roughly looked like this 

    while($sel->can_read) {
        my $nbytes = sysread( ... );
        
        my $wait_sec = $nbytes / $bandwidth;
        select(undef,undef,undef, $wait_sec);  # delay

        syswrite( ... );
    }

[download]

So, let's say with 10000 bytes being transferred ($nbytes), and with the simulated $bandwidth being 2000 (bytes/sec), a total delay of 5 sec. would be forced upon the transfer. This could be refined to take the real bandwidth of the connection into account (which was large in my case), but in order to just get a feel for how slow something is, it might be sufficient as it is...  Similarly, you could add roundtrip latencies, or play with transfer block sizes, etc.

In reply to Re: Slow LWP? by almut
in thread Slow LWP? by vaevictus

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.