Select Code to Download

package Sub::Sealed;
# Probably should be Acme::Sealed, eh?
...
}

1;

use Sub::Sealed;

...
something();

print "@z * $q\n";

4 6 9
4 6 9
5 7 3