Select Code to Download

sub new {
  my ($proto, $zinc, $args) = @_;
...
}

sub packer { .. }

package ButtonCollection;
use strict;
...
}

1;

#!/usr/bin/perl
use strict;
...
  $mainmenu -> pack;
}