use strict;

use IO::Socket::INET;
use LWP::Simple;

my $url = 'http://www.google.com';
my $backup_host = 'www.apache.org';
getprint $url;

{

  my $old_constructor = \&IO::Socket::INET::new;
  local *IO::Socket::INET::new = sub {
    my ($package,%args) = @_;

    warn "Redirecting from $args{PeerAddr} to $backup_host";
    $args{PeerAddr} = $backup_host;

    $old_constructor->($package,%args);
  };
  getprint $url;
};