use LWP;
require LWP::Protocol::http10;
LWP::Protocol::implementor('http', 'LWP::Protocol::http10');

my $ua = LWP::UserAgent->new();
$ua->get('http://server.local/foo');