Select Code to Download

sub type(%) {
   my $self = shift;
   return $reverse{$self->{mask}};
}

## This code has no checking at all.

use strict;
...
        $dt{$_->type()}->($_->fullname());
    }
}