#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use HTTP::Request;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new ();
my $request = HTTP::Request->new (OPTIONS => 'http://kanji.sljfaq.org/hw-17.cgi');
my $response = $ua->request ($request);
print $response->as_string (), "\n";