in reply to delete folder and its content with plain perl
my $result = system('rmdir /S /Q "C:\Users\tyj\Documents\Traning\2017" +'); [download]