Select Code to Download

sub GET_PACK::entrys {
  my ( $pack , %type ) = @_ ;
...

  return( @PACK ) ;
}

sub test { print "Hello!\n" ;}
my $test = 123 ;
...
) ;

foreach my $l_i ( sort @l ) { print "$l_i\n" ;}