Select Code to Download

sub deldir {
    my $dir = shift;
...
}
my $dir_to_be_deleted = 'C:\Users\tyj\Documents\Traning\2017';
deldir $dir_to_be_deleted;