Select Code to Download

package MTD;
use strict;
...


return 1;

use MTD;
use strict;
...
    push(@{$$var{array}}, $$filename); # reference to an array within 
+a hash reference as an array
    $$var{t_sem}->up();    
}