Select Code to Download

perl -mHTTP::Daemon -e '$d=new HTTP::Daemon(LocalPort=>12345);while ($
+c=$d->accept){sleep 10;$c->send_file_response("index.html")}'

perl -e 'use LWP::Simple;@LWP::Protocol::http::EXTRA_SOCK_OPTS = (Loca
+lAddr=>"localhost:54321");get("http://localhost:12345")'

tcp       71      0 mondas:12345            mondas:51575            ES
+TABLISHED

[jj@mondas jj]$ perl -le 'use LWP::Simple;@LWP::Protocol::http::EXTRA_
+SOCK_OPTS = (LocalAddr=>"192.168.1.1:54321");getprint("http://jonalle
+n.info/cgi/delay.pl");'
Hello, World!

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

[root@mondas log]# ifconfig
eth0      Link encap:Ethernet  HWaddr 52:54:05:C5:13:7A
...
          TX packets:17172 errors:0 dropped:0 overruns:0 carrier:0
          collisions:0
          RX bytes:4381193 (4.1 Mb)  TX bytes:4381193 (4.1 Mb)

[jj@mondas jj]$ perl -e 'use LWP::Simple;@LWP::Protocol::http::EXTRA_S
+OCK_OPTS = (LocalAddr=>"192.168.1.1:8080");getprint("http://jonallen.
+info/cgi/delay.pl");'
500 Can't connect to jonallen.info:80 (Address already in use) <URL:ht
+tp://jonallen.info/cgi/delay.pl>

[jj@mondas jj]$ perl -e 'use LWP::Simple;@LWP::Protocol::http::EXTRA_S
+OCK_OPTS = (LocalAddr=>"192.168.1.10:8080");getprint("http://jonallen
+.info/cgi/delay.pl");'
500 Can't connect to jonallen.info:80 (Address already in use) <URL:ht
+tp://jonallen.info/cgi/delay.pl>

perl -e 'use LWP::Simple;@LWP::Protocol::http::EXTRA_SOCK_OPTS = (Loca
+lAddr=>"192.168.1.8:11111");getprint("http://192.168.1.1:12345");'

perl -e 'use LWP::Simple;@LWP::Protocol::http::EXTRA_SOCK_OPTS = (Loca
+lAddr=>"192.168.1.1:11111");getprint("http://jonallen.info/cgi/delay.
+pl");'

tcp        0      0 mondas.coldsoluti:11111 212.69.202.117:http     ES
+TABLISHED
tcp       73      0 mondas.coldsoluti:12345 lclus1.coldsoluti:11111 ES
+TABLISHED