unless (-d $w1)
    {
        warn "argument to DelTask is not a directory.\n";
        return;
    }