Select Code to Download

if (expression) {
    statement (1);
...
    statement (2);
    }
statement (3);

sub get_filehandle {
    my $self = shift;
...
        or die "can't open $self->{file}";
    return $fh;
    }

sub get_filehandle {
    my $self = shift;
...
        die "can't open $self->{file}";
        }
    }

sub get_lines {
    my $self = shift;
...
    $self->{file_handle} ||= $self->get_filehandle ($self->{file});
    return readline ($self->{file_handle}) || undef;
    }