sub DelTask{
    my ($w1) = shift;

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


    foreach my $f (@d1)
    {
        
        my $d1 = basename($f);
        
        if ($d1 =~ /^white*/)
        {
          my $f1 = $f . '*';
          print $f1;
          unlink glob $f1;
          unlink $f;          
        }
    }
}
DelTask($o_dir);