Select Code to Download

        my $member = "dump_$key";
        my $name = "name_$key";
...
        ...
        if ($self->can($member)) {
            $self->$member ($pos, $len);

my $str = '001100010011001100110001';
my $value = pack ('B*', $str);
print $value;