perlでHTTP PUT methodでリクエストしたいときのサンプル

perlでHTTP PUT methodでリクエストしたいシチュエーションに
遭遇したので、サンプルコードと動作確認環境をさらしてみます。

サンプルは以下
#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

use HTTP::Request;
use LWP::UserAgent;

# 動作確認環境 on google app engine
my $url  = 'http://tanargle.appspot.com/rest_test';
my $ua   = new LWP::UserAgent;
# PUT を指定する
my $request = new HTTP::Request(PUT => $url);
my $body    = 'foo=bar&hoge=fuga';
$request->content($body);

my $response = $ua->request($request);
print $response->content();
http://tanargle.appspot.com/rest_testは
Google App Engine上の動作確認用環境です。
ご自由に利用してもらってかまいませんが、
予告無しで環境を落とすかもしれないのでご了承ください。

で、実行すると、
$ perl put.pl
PUT Methodを受け付けました
うまくいくと↑のようなメッセージが返ってきます。