my $result = system("rmdir /S /Q $foldername");