Clean directory with SVN

Delete .svn directory

#!/usr/bin/perl
use File::Path; 
use strict;
use warnings;

my @tree=<*>;

foreach (@tree){
 &if_a_tree($_);
}

sub if_a_tree{
 if(-d 
         && $_ ne "."
         && $_ ne ".."){
  print "$_ is a directory\n";
  if ($_ eq ".svn")
  {
      rmtree $_;
      return;
  }
  chdir $_;
  my @tree=<* .*>;
  foreach(@tree){
   &if_a_tree($_);
  }
  chdir "..";
 }

 if(-f){
  print "$_ just a file\n";
 }

}