#!/usr/local/bin/perl
use 5.010;
use strict;
use warnings;
use LWP::UserAgent;
use URI;

my $base =
  'http://japan.cnet.com/news/business/story/0,3800104746,20416479-0,00.htm';

say URI->new_abs('/news/service/', $base);
say LWP::UserAgent->new();