Select Code to Download

#!/usr/bin/perl
...
print "\n";

exit;

sub foo { Utils::LowLevel::foo }

sub do_highlevel_stuff {
  my $self = shift;
  my $value = $self->get_lowlevel_value;
  # ...
}

sub do_highlevel_stuff {
  my $self = shift;
  my $value = Utils::LowLevel::get_lowlevel_value($self);
  # ...
}