use Module::Replace;
Module::Replace::replace_with('IO::Socket::INET', new => sub {
  my $class = shift;
  $class = 'IO::Socket::INET6' if $class eq 'IO::Socket::INET';
  IO::Socket::INET::SUPER_new($class, @_);
});