Select Code to Download

sub DelTask{
    my ($w1) = shift;

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

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

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

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

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

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

        {
          my $f1 = $f . '*';
...
        }
    }
}

DelTask($o_dir);