Select Code to Download

sub screen {
  my ($self) = @_;
...
  push @lines, $line if $line;
  @lines;
};

sub get_set_field {
  my $self = shift;
...

  $self->get_set_field($field,@_);
};