DNS round robin in perl LWP

gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;
use LWP;
use LWP::Protocol::http; # So we can manipulate EXTRA_SOCK_OPTS
use HTTP::Request::Common;


# LWP DNS round Robin
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request::Common::GET(shift @ARGV);

my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname($req->uri()->host());

for my $addr (@addrs) {
       my ($a,$b,$c,$d) = unpack('W4',$addr);
       my $ip = "$a.$b.$c.$d";
       @LWP::Protocol::http::EXTRA_SOCK_OPTS = (PeerAddr => $ip);

       my $res = $ua->request($req);
       print $res->content() . "\n";
}