Select Code to Download

use LWP::FileHandle;
lwpopen URL, $method, $url, $query;

lwpopen URL, GET => $url, 'this=that';
lwpopen URL, GET => "$url?this=that";  # can append QS to URL
lwpopen URL, POST => $url, [ this => 'that' ];
lwpopen URL, POST => $url, { this => 'that' };

use LWP::FileHandle;
lwpopen JAPHY, GET => 'http://www.crusoe.net/~jeffp/';
...
  print;
}
lwpclose JAPHY;

package LWP::FileHandle;

...
sub DESTROY {
  $_[0]{SOCKET}->close;
}