"EINPROGRESS" is not exported by the Errno module at H:\devperl\sockets\perl_networking\ch13\HTTPFetch.pm line 12

##</code><code>##

use POSIX qw(:errno_h);
#use Errno 'EINPROGRESS';

##</code><code>##

  $localpath .= "index.html" if $localpath =~ m!/$!;
  $localpath =~ s/[\?\=\&]/-/g; # Rudif