[jj@mondas jj]$ perl -e 'use LWP::Simple;@LWP::Protocol::http::EXTRA_SOCK_OPTS = (LocalAddr=>"192.168.1.1:54321");getprint("http://www.google.com");'
500 Can't connect to www.google.com:80 (Cannot assign requested address)
 <URL:http://www.google.com>