Select Code to Download

my $foo;
print_foo();
...
print_foo();

sub print_foo {print $foo;}

my %data = default_data();

...
  my $self = shift;
  # ...
}

{
  my %private_stuff;
...
    # ...
  }
}