Select Code to Download

package Module_IO;
use Moose;
...
        print $self->name; 
        
}

$Module_IO_container[$FileNum][$index] = $obj;

foreach my $a1 (@Module_IO_container) {
    foreach my $b1 (@$a1) {  
        print $b1->print_all_IO, "\n";        
    }
}