#!/usr/bin/perl
use strict;
use File::Find;
use File::Path;
sub enleve_moi_ca {
    if ($_ eq ".svn"){   
	rmtree($_) ;
	$File::Find::prune=1;
    }
}
find(\&enleve_moi_ca,".");