lwp-ipv6-test.pl

#! /usr/bin/perl

use strict;
use warnings;
use utf8;
use IO::Socket::INET6;
use LWP::UserAgent;

## Use IO::Socket::INET6 instead of IO::Socket::INET6 in Net::HTTP.
BEGIN {
    $Net::HTTP::SOCKET_CLASS = 'IO::Socket::INET6';
    require Net::HTTP;
}

our $URL = 'http://v6only.exsample.jp/';

my $ua  = LWP::UserAgent->new;
my $res = $ua->get($URL);
if ( $res->is_success ) {
    print $res->decoded_content;
}
else {
    die $res->status_line;
}

## end of IPv6 test script