sub DelTask{
    my ($w1) = shift;

    my $m1 = $w1 . '/*';
    my @d1 =  glob $m1;