Alex Blog

For libwww-perl-5.834.

Use the method local_address of LWP::UserAgent object

my $ua = LWP::UserAgent->new( );
$ua->local_address( '192.168.0.1' )

For older versions.

Before creating an LWP::UserAgent object you should add following code:

push(@LWP::Protocol::http::EXTRA_SOCK_OPTS,
LocalHost => '192.168.0.1'
);

there 192.168.0.1 is the required interface IP address.