in reply to delete folder and its content with plain perl

salva is correct. My script is like this
my $result = system('rmdir /S /Q "C:\Users\tyj\Documents\Traning\2017" +');
I am able to delete this directory tree without any confirmation. Thanks