#!/usr/bin/perl -w

use IO::Socket; 
package IO::Socket::INET;

sub sysread { 
 my $self = shift; 
 select(undef,undef,undef,0.1); 
 $self->SUPER::sysread(@_);
}

sub syswrite { 
 my $self = shift; 
 select(undef,undef,undef,0.1); 
 $self->SUPER::syswrite(@_);
}

package main; 
# Your LWP code here... 
use LWP; 
use LWP::Debug '+'; 
print LWP::UserAgent->new->request(HTTP::Request->new(GET =>
"http://www.perl.com"))->as_string;