sub DelTask{
    my ($w1) = shift;

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

##</code><code>##

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

##</code><code>##

    my @d1 = glob "$w1/*";

##</code><code>##

    foreach my $f (@d1)
    {
        
        my $d1 = basename($f);

##</code><code>##

        if ($d1 =~ /^white*/)

##</code><code>##

        if ($d1 =~ /^\s+/)

##</code><code>##

        {
          my $f1 = $f . '*';
          print $f1;
          unlink glob $f1;
          unlink $f;          
        }
    }
}

##</code><code>##

DelTask($o_dir);