#!/usr/bin/perl --
use strict;  use warnings;
use LWP;
my $ua = LWP::UserAgent->new;
$ua->show_progress(1);

my $req = HTTP::Request->new(
#~     OPTIONS => 'http://www.example.com/*',
#~     OPTIONS => 'http://www.iana.org/domains/example/*',
#~     OPTIONS => 'http://www.example.net/*',
    OPTIONS => 'http://www.example.de/*',
);
$req->dump;
my $res = $ua->request( $req );
$res->dump;
__END__
OPTIONS http://www.example.de/*

(no content)
** OPTIONS http://www.example.de/* ==> 200 OK (1s)
HTTP/1.1 200 OK
Connection: close
Date: Mon, 05 Nov 2012 10:37:18 GMT
Server: Apache
Allow: GET,HEAD,POST,OPTIONS
Content-Length: 0
Content-Type: text/plain
Client-Date: Mon, 05 Nov 2012 10:40:35 GMT
Client-Peer: 82.165.91.73:80
Client-Response-Num: 1

(no content)