sub deldir {
    my $dir = shift;
    my @entries = glob "$dir/*";
    for my $entry (@entries) {
        unlink $entry if -f $entry;
        deldir($entry) if -d $entry;
    }
    rmdir $dir;
}
my $dir_to_be_deleted = 'C:\Users\tyj\Documents\Traning\2017';
deldir $dir_to_be_deleted;