#!/usr/bin/perl -w

use File::Path;

my $aufruf;
my $path  = "c:\\Temp\\Hugo";
my $path1 = "c:\\Temp\\Hugo1";
my $path2 = "c:\\Temp\\Hugo2";
my $debug = 1;

rmtree( $path,  1 );
rmtree( $path1, 1 );
rmtree( $path2, 1 );