( cd $DIR && svn pl -v --xml . -R ) | perl -MXML::Simple -MData::Dumpe
+r -e '
$r = XMLin( join( "", <> ), ForceArray => 1, ContentKey => '-content' 
+);
$r = { map { $_->{path} => $_->{property} } @{ $r->{target} } };
while ( my ( $path, $props ) = each %$r ) {
    while ( my ( $prop, $value ) = each %$props ) {
        print "svn ps '$pro' '$value' '$path'\n";
    }
}
'
[download]