#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $url = 'http://www.google.com';
my $backup_host = 'www.apache.org';
@LWP::Protocol::http::EXTRA_SOCK_OPTS = (PeerAddr => $backup_host);
getprint $url;