in reply to Assigning source port to LWP request

For HTTP, you can fudge it using 
push @LWP::Protocol::http::EXTRA_SOCK_OPTS, LocalPort => 55555;

[download]

In Section Seekers of Perl Wisdom