#perl

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

my $ua = LWP::UserAgent->new;

## build request
print "PROPFIND:\n";
$req = HTTP::Request->new('PROPFIND' => 'http://localhost:4242/');
$req->header( 'Depth' => '1' );
$req->content('<?xml version="1.0" encoding="utf-8" ?>
 <D:propfind xmlns:D="DAV:">
  <D:prop>
<D:creationdate/>
<D:displayname/>
<D:getcontentlength/>
<D:getcontenttype/>
<D:getetag/>
<D:getlastmodified/>
<D:resourcetype/>
  </D:prop>
 </D:propfind>');

## fire request through ua and get a response back
my $res = $ua->request($req);
if ($res->is_success) {
      print $res->status_line ."\n". $res->headers->as_string . $res->content;
}else{
      print $res->status_line, "\n";
}
print "\n\n";

## build request
print "PUT:\n";
$req = HTTP::Request->new('PUT' => 'http://localhost:4242/test.txt'); ## update
$req->content('1234567890');

## Pass request to the user agent and get a response back
my $res = $ua->request($req);
if ($res->is_success) {
      print $res->status_line ."\n". $res->headers->as_string . $res->content;
}else{
      print $res->status_line, "\n";
}
print "\n\n";