#!/usr/bin/perl -w
use HTTP::DAV;
use warnings;

$d = new HTTP::DAV;
$url = "http://mediacenter.gmx.net:80/test/";

$d->credentials( -user=>"username", -pass=>"password",
         -url=>$url);

print "Connecting to $url\n";
$d->open( -url=>$url )
    or die("Could not open $url: " . $d->message . "\n");

# Das PUT klappt nur bei kleinen Dateien
if ($d->put( -local=>"/tmp/test.txt", -url=>$url )) {
    print "Success\n";
    print $d->message."\n"; }
else {
    print "Failure\n";
    print $d->message."\n"; }