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

##</code><code>##

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

##</code><code>##

sub get_filehandle {
    my $self = shift;
    $self->{file} = shift;
    if (open my $fh, "<", $self->{file}) {
        return $fh;
        }
    else {
        die "can't open $self->{file}";
        }
    }

##</code><code>##

sub get_lines {
    my $self = shift;
    $self->{file} = shift;
    ### get the filehandle if we don't already have one
    $self->{file_handle} ||= $self->get_filehandle ($self->{file});
    return readline ($self->{file_handle}) || undef;
    }